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136 1.0 ABSTRACT 

128 THIS DIAGNOSTIC PROGRAM IS CAPABLE OF TESTING THE DR11-W 

94 NPR GENERAL INTERFACE IN DR11-W OR DR11-B MODE. 

13) IT HAS THE FOLLOWING FEATURES: 

133 1. APT11/XXDP_ COMPATIBLE 

134 2. MULTIPLE BOARD TESTING USING TABLE CREATED BY USER 

135 3. BURST DATA LATE CALIBRATION 

136 4. INDEPENDENT ‘LOGIC WRAP-AROUND’ AND ‘CABLE WRAP-AROUND’ TESTING 
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2.0 REQUIREMENTS 
2.1 EQUIPMENT 
- PDP11 STANDARD COMPUTER 
° E TERMINGL 
- 1-16 DR11-W MODULE (S) 
- LOOP BACK CABLE (NEEDED TO FULLY CHECK THE MODULE WITH THIS 
DIAGNOSTIC) 
2.2 HARDWARE SWITCH SETTINGS 


THE ADDRESS SELECTION SWITCH, E120, IS SET UP AS BELOW: 


fwn— 


ADDRESS BITS: wh. BF 8 7 6 5 4 3 


EXAMPLE: DEVICE ADDRESS 172410, SWITCHES 1, 3, 5 & 10 SHOULD BE 
OFF, AND ALL OTHERS SHOULD BE ON. 


THE E105 SWITCHPACK: THIS SWITCHPACK MUST BE IN THE FOLLOWING 
POSITIONS TO RUN THIS DIAGNOSTIC: 


WN OONAULSWN—OVONOA UNSW O0OOan 


UEWN— 
eernrees 
oO 
nn 
nv 


OF F 
ON FOR -W MODE, OFF FOR -B MODE 
SINGLE SWITCH NEAR THE E105 SWITCHPACK: 


2 CYCLE MODE - SWITCH HANDLE TOWARDS PACK E105 
N CYCLE MODE - SWITCH HANDLE TOWARDS E94 


THE VECTOR SELECTION SWITCH, E15, IS SET UP AS BELOW: 


VECTOR BITS: . £82 8 8.84.7. 8 


EXAMPLE: VECTOR ADDRESS 300, SWITCHES 6 & 7 SHOULD BE 
OFF, AND ALL OTHERS SHOULD BE ON. 


WR O ODNOUSWN—-OOONOW 


2.3 STORAGE 
THE PROGRAM USES APPROX. 56000 WORDS OF MEMORY 
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3.0 TESTING MODE 


3.1 


3.2 


DEFINITION 


THE DR11-W DIAGNOSTIC ACCOMPLISHES DEVICE inte a BIT TESTS, 
INTERNAL ‘‘LOGIC’’ WRAP-AROUND TESTS, AND WITH THE BCO6-R WRAP- 
AROUND CABLE 1 AND J2, PROVIDES EXTERNAL ‘‘CABLE‘* WRAP-AROUND 


OUND CABLE | 
AT ADDRESS 200 EACH TIME, OR EDITING TO CHANGE THE CABLE MODE 
(SEE SECT. 7.1.1) 


THERE ARE ONLY TWO LEGAL MODES OF OPERATION OF THIS DIAGNOSTIC: 


1. DR11 WITH NO CABLE(S) IN USER SLOTS. 
2. DR11 WITH WRAP-AROUND CABLE FROM J1 TO J2. 


THIS DIAGNOSTIC IS NOT MEANT TO BE RUN IN THE FOLLOWING MODES: 


1. OR11 CONNECTED TO ANOTHER DR11. 
2. OR11 CONNECTED TO A USER DEVICE. 


IMPLEMENTATION 


DEVICE REGISTER BIT TESTS AND INTERNAL LOGIC WRAP-AROUND TESTS 
ARE EXECUTED UNCONDITIONALLY. CABLE WRAPAROUND TESTS ARE 
EXECUTED ONLY IF THE BCO6-R CABLE IS IN PLACE BETWEEN THE J1 
AND J2 CONNECTORS ON THE DR11-w UNDER TEST. THE PRESENCE OF 
THIS CABLE I$ "SIZED" FOR AUTOMATICALLY FOR EACH BOARD WHEN 

THE DIAGNOSTIC IS STARTED AT ADDRESS 200. THE USER sMUSTs 
VERIFY THAT THE ‘'SIZING' OCCURRED CORRECTLY BY OBSERVING THE 
QUTPUT OF THE PROGRAM WHEN STARTING AT 200. (REFER TO SECTION 


IN MANUAL MODE (STARTING ADDRESS = 204), THE USER CAN FORCE 
UNIFORM TESTING PARAMETERS FOR ALL MODULES THROUGH USE OF THE 
EDIT FUNCTION (REFER TO SECTION 7.1.1). 
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4.0 LOAD AND START PROCEDURE 


1. LOAD PROGRAM INTO MEMORY. 

2. LOAD STARTING ADDRESS 200, 204 OR 210. 
RESPECTIVELY) 

3. PRESS START. 


SEQUENCE ° 


(SEE SECTS. 7.1. 7.2. 7.5 
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$30 5.0 SWITCH REGISTER 

$36 5.1 OPTIONS 

$3 SWITCH OCTAL FUNCTION 

$35 SW15=1 100000 HALT ON ERROR 

238 THIS WILL CAUSE THE PROCESSOR TO HALT AT THE 
t44 NEXT ERROR. 

seh SW14=1 040000 LOOP ON TEST 

243 THIS WILL CAUSE THE PROCESSOR TO LOOP ON THE 
Ste TEST IT IS THEN EXECUTING. 

$78 SW13=1 020000 INHIBIT ERROR TYPEOUTS 

re ; THIS WILL CAUSE ERROR TYPEOUTS TO BE INHIBITED. 
$20 SW12=1 010000 100% AUTOSIZE MODE 

252 THIS IS TO BE USED BY OPTION MANUFACTURING ONLY. 
253 ' BECAUSE OF THE LARGE ADDRESSING WINDOW, OTHER 
254 OPTIONS HAVE BEEN FOUND THAT GIVE THE AUTOSIZER 
255 THE IMPRESSION A DR11 IS WHERE IT IS NOT. THIS 
256 BIT SET WILL BYPASS THE ROUTINE PROMPTING THE 
oH4 USER FOR THE DR11 ADDRESSES. 

$2) Sw11=1 004000 TEST NUMBER TRACE ENABLING 

261 THIS ENABLES THE PRINTING OF THE FOLLOWING AT 
a) THE BEGINNING OF EACH TEST: 

43 T # XX 

266 THIS CAN BE USED WHEN AN UNEXPECTED TRAP OCCURS 
267 IN A_TEST, BUT LOOPING ON THAT TEST RESULTS IN 
so8 NO ERROR(S). 

3 SW10=1 002000 BELL ON ERRCR 

272 THIS FUNCTION CAUSES THE hgh y. BELL TO SOUND 
273 WHEN AN ERROR OCCURS. THIS CAN BE USED _IN CON- 
274 JUNCTION WITH LOOP-ON-TEST AND INHIBI T-ERROR- 
275 TYPEOUTS TO SEE IF A LOOSE CONNECTION MAY BE 
$f8 CAUSING THE ERROR. 

$55 SWw09=1 001000 LOOP ON ERROR 

280 THIS FUNCTION WILL CAUSE LOOPING ON ERROR. IT 
281 CAN BE USED IN CONJUNCTION WITH INHIBIT-ERROR- 
282 TYPEOUTS WHEN USING A SCOPE TO FIND A FAULTY 
283 COMPONENT. 


_ 
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384 , Sw08=1 000400 LOOP ON TEST IN SWR<6:0> 
286 THIS FUNCTION CAUSES THE CPU TO JUMP TO THE 
287 TEST IN BITS <6:0> AND EXECUTE THAT TEST UNCON- 
288 DITIONALY. CHANGE THE SWITCH REGISTER TO EXIT. 
289 TO CREATE A TIGHTER LOOP ON THAT PARTICULAR 
290 TEST, SET LOOP=ON-TEST (40000) IN THE SWR ONCE 
391 THE TEST 1S EXECUTING. 
3 : Sw07=1 000200 INHIBIT MULTIPLE ERROR TYPEOUTS 
295 ON ERROR CALLS IN LOOPS WHERE MULTIPLE ERRORS 
296 ARE POSSIBLE. THIS FUNCTION INHIBITS ANY ADDI- 
297 - TIONAL DATA THAT MAY PRINT IN THAT POOP. 
338 EXAMPLE : 

* 300 MULTIPLE TYPEOUTS ENABLED: 
302 CERROR upeSSAGED 
303 CDAT ADERJ 
304 SOO BSD XXXXXK XXX 
305 XXXXXK XXXXKKX XAXXXKK NKKAXKK 
306 XMXXXXK AXXAXXKK XAAMKKMK  AKAAKX 
307 XXXXMK XXXXXKX XMAXKXAXK MXXNKK 
308 XXXXXK XXXXKX XAXKKAXK KKK 
310 >>>>>>NOTE<<<<<< 


A MAXIMUM OF 17 (OCTAL) DATA LINES WILL 
PRINT. IF THERE ARE MORE, A MESSAGE WILL 
PRINT AS FOLLOWS: 


THERE ARE STILL MCRE ERRORS, BUT WILL NOT BE PRINTED. 
ERRORS WILL STILL BE COUNTED AND PRINTED AT THE EOP. 


MULTIPLE TYPEOUTS DISABLED: 


CERROR MESSAGE] 
CDATA HEADE 
MXXXXM AMAXXK XAAAXXXKX AXAAXK 


(NO MORE DATA WILL PRINT) THE TOTAL NUMBER 
OF ERRORS WILL STILL BE TOTALED AND PRINTED 
AT THE EOP OR EOD. 


WWWNWWWNWWWWw 
Wa or a 
SWONAMUSWwR— 
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34 5.2 SOFTWARE SWITCH REGISTER 

329 IF THE HARDWARE SWITCH REGISTER DOES_NOT EXIST, OR 
330 IF ONE DOES AND IT CONTAINS ‘=1' (177777) THEN THE 

331 SOFTWARE SWITCH REGISTER (LOCATION 176) IS USED, 

332 WHICH ALLOWS THE USER THE SAME SWITCH OPTIONS AS THE 
$87 ‘ HARDWARE SWITCH REGISTER. 

EH . 5.3 LOADING THE SOFTWARE SWITCH REGISTER 

337 THIS PROGRAM SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE 

338 SWITCH REGISTER (LOCATION 176) FROM THE TTY. THIS IS ACCOM- 
He PLISHED AS FOLLOWS: 

341 1. TYPE CONTROL G <*G> REPEATEDLY, AS RESETS AND INITS DONE 
342 IN THE DIAGNOSTIC MAY CLEAR THE CHARACTER BEFORE THE 

343 a IS_ RECOGNIZED. ONCE INPUT IS RECOGNIZED, THIS 
344 ALLOWS THE TTy TO ENTER DATA INTO LOCATION 176 AT THE END 
ar A TEST. 

347 2. THE MACHINE WILL TYPE: SWR=XXXXXX NEW= (XXXXXX IS THE OCTAL 
28 CONTENTS OF THE SOFTWARE SWITCH REGISTER) 

$25 3. AFTER THE "NEW=" THE OPERATOR CAN DO ONE OF THE FOLLOWING: 





A. TYPE A NUMBER TO BE LOADED INTO LOCATION 176 FOLLOWED BY A <CR> 
oat af ates O-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
IF A <CR> IS THE FIRST ENTRY THE SOFTWARE SWITCH REGISTER WILL 
NOT BE CHANGED. 


B. IF A_CONTROL U <*U> IS DEPRESSED, THE PROGRAM WILL GO BACK 
TO STEP 2. 
5.4 PROGRAM AND/OR OPERATOR ACTION 
LOADING AND STARTING AT om . — ALL SWITCHES DOWN 
IS NORMAL LOGIC TESTING. AN ERROR IS DETECTED, 


IS MORE 


E 
CAUSING THE PREVIOUS ERROR(S) BEFORE YOU CAN LOOP ON THAT 
ERROR. NOP'ING THE PREVIOUS ERRORS WILL PRODUCE UNPREDIC- 
TABLE RESULTS FOR ANY SUBSEQUENT ERRORS IN THE TEST. 
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6.0 


ERROR REPORTING 


EACH TEST WILL CALL AN ERROR CONTAINING THE TEST NUMBER, ERROR PC 
AND DATA THAT IS SIGNIFICANT TO THE PROBLEM THAT CAUSED THE ERROR. 


IN THE CASE OF MULTIPLE BOARD vg fe THE FAILING MODULE IS IDENTIFIED 


BY THE DEVICE REGISTER ADDRESS, AND THE END-OF-DEVICE-TEST MESSAGE 
FOLLOWING ALL ERRORS FOR THAT PARTICULAR MODULE. 


12 
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7.1 





7.0 OPERATING MODE 


MANUAL MODE (STARTING ADDRESS = 204) 
DEFINED AS NON-AUTOMATIC USE OF THE DIAGNOSTIC. 


THIS MODE IS INTENDED FOR USE IN MANUFACTURING WHEN APT IS 
NOT AVAILABLE. 


IN MANUAL MODE, ALL DR11-W HARDWARE MODULES *MUST*BE*CONF IGURED* 
*AS*FOLLOWS*: 


> W/B, PRIORITY LEVEL, 2/N CYCLE AND CABLE STATES SET IDENTICAL 
* IN*ALL*MODULES*. 


ALL ad $53 ADDRESSES MUST BE SET IN A SERIES SPACED 10 LOCATIONS 
APART, STARTING WITH THE ADDRESS te TO THE PROMPT ‘STARTING 
DEVICE ADDRESS XXXXXX :°. (ALL MODULES MUST BE ADDRESSED 

WITHIN THE LEGAL ADDRESS RANGE OF 171000 TO 177000) 


ALL ate 7 ADDRESSES MUST BE SET IN A SERIES SPACED 10 LOCATIONS 
APART. (ALL MODULES MUST BE VECTORED WITHIN THE LEGAL VECTOR 
RANGE OF 300 TO 770) 


> THE MODULE wITH THE LOWEST DEVICE ADDRESS MUST ALSO HAVE THE 
LOWEST VECTOR ADDRESS, THE MODULE WITH THE NEXT TO THE LOWEST 
DEVICE ADDRESS MUST ALSO HAVE THE NEXT TO THE LOWEST VECTOR 
ADDRESS, ETC. FOR EXAMPLE: 


Vv 


Vv 


BOARD # DEVICE ADDRESS VECTOR ADDRESS 
0 172410 300 
1 172420 310 
2 172430 320 
3 172440 330 ETC. 


ONLY UNDER MANUAL MODE DOES THE DIAGNOSTIC OFFER “BURST 
DATA LATE’ CALIBRATION. AFTER LOADING PROGRAM, DEPOSITING 
SA 204, AND PRESSING START, THE PROGRAM TYPES THE FOLLOWING: 
MULTIPLE BOARD DIALOGUE 
ENTER COMMAND (CEIJDIT, CLIIST, CBJURST CALIBRATION, CRIJUN): 


THE PROGRAM WILL ALLOW ONLY 1 CHARACTER INPUT, AUTOMATICALLY 
PRINTING A <CRLF> WHEN THE CHARACTER IS INPUTED. 


13 
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7.1.1 





WHEN CE] IS ENTERED, THE PROGRAM ENTERS THE EDIT FUNCTION 


*NOTE*: TO EXIT THIS ROUTINE AT ANY RESPONSE AND RETURN 
TO THE MBD PROMPT, ENTER CONTROL '‘C' ee THIS DOES 
NOTHING BUT EXIT THE ROUTINE, AND DOES A ~ CHANGE ANY 
VALUES PRESENT OR CHANGED. {0 RETURN TO ‘© PREVIOUS 
PROMPT, TYPE <ESC>. 


‘EDIT’ RESPONDS FIRST BY PRINTING: 

# OF BOARDS UNDER TEST X: 
PROGRAM ACCEPTS A MAXIMUM OF 2 DECIMAL CHARACTERS. 
AN APPROPRIATE ; he MESSAGE - PRINTED IF THE NUMBER 
INPUTED IS OUT OF RANGE, OR AN ILLEGAL CHARACTER WAS 
INPUTED. ENTER <CA IF PRESENT VALUE IS OK. NEXT: 

STARTING DEVICE ADDRESS XXXXXX : 
THE USER SHOULD RESPOND WITH THE LOWEST DEVICE ADDRESS 

THE SERIES. PR 5 A OF 6 OCTAL 

MESSAGE IS PRINTED IF THE NUMBER INPUTED IS OUT 
RANGE, OR AN ILLEGAL CHARACTER WAS INPUTED. ENTER <CR> 
IF PRESENT VALUE IS OK. NEXT: 

STARTING VECTOR ADDRESS XXX : 
THE USER SHOULD RESPOND WITH THE LOWEST VECTOR ADDRESS 
IN THE SERIES. _PROGRAM_ACCEPTS A MAXIMUM OF 3 OCTAL 
DIGITS BETWEEN 300 AND 777. AN APPROPRIATE ERROR 
oo IS Pow nt if THe NUMBER INPUTED IS OUT OF 

ANGE, OR AN ILLEGAL mage © WAS INPUTED. ENTER <CR> 
i? PRESENT VALUE IS OK. NEXT 

DR11-W OR B (W=0) CURRENT STATE = 
ey ACCEPTS EITHER A 0 OR 1, REPEATING THE PROMPT 
IF ANY OTHER CHARACTER IS INPUTED. ENTER <CR> IF 
PRESENT VALUE IS OK. NEXT: 

DEVICE PRIORITY PRESENT LEVEL = 
Ae ge ACCEPTS 1 CHARACTER BETWEEN 0 AND 7, REPEATING 

THE PROMPT IF ANOTHER a IS INPUTED. ENTER <CR> 
IF PRESENT VALUE IS OK. NEXT 

2 OR N CYCLE BURST (2 CY=0) PRESENT STATE = 


PROGRAM ACCEPTS A_O OR 1, REPEATING THE PROMPT IF 
CHARACTER IS INPUTED. ENTER <CR> IF PRESENT VALUE 


DO CABLE TESTS (NO=0) PRESENT STATE = 
PROGRAM ACCEPTS A_0 OR 1, REPEATING THE PROMPT IF ANY 


. OTHER 


OTHER CHARACTER IS INPUTED. ENTER <CR> IF PRESENT 
VALUE IS OK. THEN THE COMMAND PROMPT IS REPRINTED. 


Y 
S OK. NEXT: 
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7.1.2 


WHEN CL] IS ENTERED, THE PROGRAM ENTERS THE LIST FUNCTION 
THE DIAGNOSTIC THEN PRINTS THE FOLLOWING: 


# OF START 2-N CABLE 
BOARDS REGADR VECADR wW~B P-LEV CYCLE TESTS 
XX = XXXXXX XXX x x x x 


AS PREVIOUSLY MENTIONED, ALL BOARDS MUST BE SPACED 10 
ADDRESS LOCATIONS APART STARTING WITH THE ‘REGADR* 

VALUE ABOVE, AND VECTORS SPACED 10 ADDRESS LOCATIONS 
APART STARTING WITH THE ‘VECADR' VALUE ABOVE. THE 
EXPECTED W-B, PRIORITY LEVEL, 2-N CYCLE AND CABLE TEST 
STATES WIL. BE THE SAME FOR ALL MODULES. 


| D_ 2 
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PPPS SII VIVIVI 


NOR) 2 SS os oo es 
—SOVONAULSWN— 


7.1.3 


7.1.4 








WHEN CBJ IS ENTERED, THE PROGRAM ENTERS THE BURST DATA 
LATE CALIBRATION ROUTINE, AND THE FOLLOWING IS TYPED: 


BURST DATA LATS CALIBRATION IN PROGRESS.. 
ATTACH SCOPE PROBE.. 

TO Toe wes NEXT BOARD, TYPE ANY CHARACTER 
DEVICE # 0 UNDER CALIBRATION 


THIS ROUTINE WILL NOT EXECUTE IF YOU HAVE NOT USED 
EDIT TO DEPOSIT A LEGAL STARTING ADDRESS AND VECTOR 
ADDRESS, OR THE PROGRAM HAS ALREADY BEEN STARTED AT 
200. ee E MULTIPLE BOARD DIALOGUE (MBD) PROMPT 

WILL BE RETURNED IF THIS IS THE CASE. AS STATED IN 
THE DR11 ENGINEERING SPECIFICATION, THE ‘BURST DLT’ 
MULTIVIBRATOR TIME OUT MUST BE CALIBRATED et Pe BE 


IF NONE, I EARING OF 
THE CYCLE BIT. IF A CHARACTER WAS INPUTED, IT CHECKS 
FOR THE NEXT BOARD, AND IF ANY, SETS UP THE ADDRESSES 
FOR THAT MODULE, THEN PRINTS THE FOLLOWING: 


DEVICE # X UNDER CALIBRATION 


*X" BEING THE DEVICE NUMBER. IT THEN REACCOMPLISHES 
THE SETTING AND CLEARING OF THE CYCLE BIT FOR THAT 
DEVICE. IF NO FURTHER MODULES ARE FOUND, THE MESSAGE: 


BURST CALIBRATION COMPLETE 
IS eee. AND THE MBD PROMPT IS THEN RETURNED FOR 


HER COMMAND. TO ACCOMPLIS 
CALIBRATION, ATTACH A_SCOPE PROBE TO E83-7 ON THE 
DR11-W (REFER TO PRINT SET M8716-0-1). A POSITIVE 
PULSE WILL_BE OBSERVED. THE PULSE SHOULD BE SET 
BETWEEN 3-30 US. BY ADJUSTING POT. R80. 


WHEN CR] IS tg THE PROGRAM BEGINS DIAGNOSTIC 

TEST EXECUTION. THIS WILL BE BLOCKED IF LEGAL STARTING 
DEVICE mee es AND VECTOR ADDRESSES HAVE NOT BEEN 

SET UP. IF THEY ARE, THE REGISTER AND VECTOR TABLES 
ARE FILLED, AND NORMAL START IS EXECUTED. 


16 
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7.2 


AUTO=SIZE MODE (STARTING ADDRESS = 200) 


THIS MODE IS THE NORMAL FIELD SERVICE MODE. IT SUPPORTS 
cab ia AS WELL AS SCRIPT OPERATION UNDER ACT11 


THE DR11 DIAGNOSTIC HAS THE FOLLOWING RUN CHARACTERISTICS WHEN 
OPERATING IN AUTO MODE: 


A. THE PROGRAM WILL _TEST THE BOARDS RECOGNIZED BY THE AUTOSIZE 
ROUTINE. THE AUTOSIZE Rigg t' WILL PROMPT THE USER FOR THE 
STARTING ADDRESSES OF ALL BOARD(S) TO TEST. IF THIS IS NOT 
DESIRED, RAISE BIT 9 (1000) IN THE SWR *ONLY*IF *THERE*ARE* 
*NO*OTHER*NON-DR1 1 *OPTIONS* THAT *COULD*BE *MI STAKENLY*AUTO-* 
*SIZED* IN*THE*160010*T0*172770*ADDRESS*RANGE*. THE DIAG- 
NOSTIC *WILL* FAIL IF i FINDS A i OPTION AND STARTS 
TO TEST IT AS SUCH. IF THE BOARD WHOS ADDRESS YOU 1 oe 


PROMPT YOU FOR THE VECTOR AND PRIORITY. ALL OTHER INFORMA- 
TION ON THE BOARD IS AUTO-SIZED. THE ONLY LEGAL INTERRUPT 
AN SET UP FOR ARE 


300-774, ALL 
STEPS OF 4. EACH BOARD CAN HAVE A VECTOR ANYWHERE. IN THE 
STATED RANGES WITH NO RESTRICTIONS, ALLOWING COMPLETE FLEX- 
IBILITY IN THE TEST SEQUENCE. 


IN THE CASE OF MULTIPLE DR11-W'S ON THE SAME CPU, EACH 
DR11-W MUST HAVE ITS OWN vote DEVICE/VECTOR ADDRESSES. 
THERE ARE NO CONSTRAINTS THAT THE BOARDS MUST START WITH 
THE FIRST DEVICE ADDRESS 150010, OR THAT MULTIPLE BOARDS 


IN AUTO-SIZE MODE, THE USE 
BY KNOWING HOW THE ARE SET UP_AND 
COMPARING WITH THE AUTOSIZE OUTPUT WHEN STARTING AT 200. 
AUTO-SIZING WILL DETERMINE THE INTERRUPT PRIORITY, INTER- 
RUPT VECIOR (ONLY IF THE BOARD INTERRUPTS PROPERLY), W/B, 


2/N CYCLE, AND CABLE STATES OF EACH BOARD, INDEPENDENT OF 
THE STATES OF OTHER BOARDS. 


17 
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SEQUENCE 18 
B. — WILL NOT BE OFFERED TO THE USER IN AUTOSIZE 
1. BURST DATA LATE CALIBRATION 
2. MULTIPLE BOARD DIALOGUE 
THE DIAGNOSTIC WILL PRINT ONE OF THE FOLLOWING: 
I) DO YOU WISH TO RELOAD THE TABLE (Y OR <CR>) ? 
OR 
II) INPUT DEVICE X STARTING ADDRESS (<CR> IF NO MORE) ? 
IF THE DIAGNOSTIC HAS BEEM RUN AND THE TABLE HAS BEEN LOADED, 
IT WILL PRINT PROMPT I). YOU AN *Y', IT WILL PRINT 
PROMPT 11), ALLOWING INPUT OF ALL DR11 DEVICE ADDRESSES. IF 
THE DIAGNOSTIC HAS NOT BEEN RUN, IT WILL BYPASS PRINTING I) 
AND PROMPT II) WILL APPEAR. AFTER INPUTING A <CR> TO THE II) 
PROMPT, THE FOLLOWING WILL PRINT: 


DIAGNOSTIC HAS DETERMINED THE FOLLOWING ABOUT THE 
DR11-W(S) IT HAS FOUND. USER *MUST* DETERMINE ACCURACY 


BOARD# REGADR VECADR' W/B P=-LEV 2=-N CY CABLE 
x AXXXXXX XXX X x x X 


DATA WILL CONTINUE TO PRINT UNTIL DATA FOR ALL MODULES HAS BEEN 
PRINTED. IF YOU INPUTED OTHER THAN A ‘Y* TO THE I) PROMPT, THE 
ratte WILL NOT PRINT. THE FOLLOWING WILL PRINT UNCON- 


(*X) INHIBITS EOP'S, (*Y) FOR ERROR SUMMARY 
UNIBUS HANG? RESTART AT ADDRESS XXXXXX 


CZDRLDO DR11 GEN NPR INTFC LOGIC TEST 
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THE CONTROL X (*X) FEATURE BYPASSES THE SECTIONS THAT PRINT THE 
etn oe AND END-OF -DEVICE Mee eehicn ce” IS TO gfote _ 


m 
= 
o 
nm 
vu 
> 
w“” 
4) 
m 
” 
m 
x< 
m 
o 
Cc 
 ozm 
=s5 
So 
<= 
m 
Ps) 
et 
v 
nm 
“4 
x 
° 
c= 
- 
r 
= 


E ERROR OCCURED. IN ORDER TO 
OBTAIN A_PROGRESS ye gh HIT ANY KEY REPEATEDLY, SINCE INITS 
AND RESETS DONE DURING THE EXECUTION OF THE DIAGNOSTIC MAY 
CLEAR_THE CHARACTER WAITING FLAG oe As THE CHECK FOR rau BIT. 
WHEN THE CHARACTER IS RECOGNIZED, AN EOP, AND IF MORE THAN ONE 
MODULE, AN EOD MESSAGE WILL PRINT GIVING THE USER A PROGRESS 
REPORT. TO DISABLE THIS FEATURE, © satacereentsis ENTER (*X) AGAIN 
UNTIL THE CPU RECOGNIZES YOUR INP 
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THE CONTROL Y_(*Y) FUNCTION CALLS FOR A SUMMARY OF DEVICE(S) 
AND PASS(ES) THAT HAD ERRORS. IF NO ERRORS OCCURED SINCE THE 
BEGINNING OF THE DIAGNOSTIC, OR SINCE THE LAST ERROR REPORT, 
THE FOLLOWING IS PRINTED: 
NO ERROR TOTALS TO REPORT 
IF THERE WERE ERRORS, THE FOLLOWING IS PRINTED: 
SUMMATION OF ERRORS sir BEGINNING OR LAST REPORT 
-— RD # ~_— # ERR 
x x x 
x x X (ETC.) 
THE INFORMATION IS STORED ON A_STACK THAT WILL HOLD UP TO 150 
(DECIMAL) DEVICE=PASS ERROR DATA LINES ABOVE. IF THE LIMIT 
1S ENTERED, THE FOLLOWING IS PRINTED JUST BEFORE THE ‘SUMMATION...° 
STATEMENT ABOVE: 
STACK IS FULL - DATA MAY HAVE BEEN LOST 


WHEN THE DATA IS PRINTED, THE STACK IS REINITIALIZED AND WILL 
START STORING UP TO ANOTHER 150 ERROR DATA LINES. 


IN THE EVENT THE UNIBUS BECOMES HUNG, AND YOU HAVE NON-VOLATILE 
MEMORY OR BATTERY BACKUP, RESTART THE PROGRAM AT THE ADDRESS 
SPECIFIED BY THE *UNIBUS HUNG..." PROMPT AT THE START OF THE 
DIAGNOSTIC. THE PRINTOUT WILL BE AS FOLLOWS: 


DEVICE ADDRESS = XXXXXX, TEST NUMBER = XXXXXX, PASS NUMBER = XXXX 


CPU WILL HALT. HITTING CONTINUE WILL CAUSE THE PROGRAM TO 
RESTART AS THOUGH YOU HAD STARTED AT 200. 
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7.3 










RESTARTING PROGRAM IN MEMORY (STARTING ADDRESS = 210) 


WHENEVER THE PROGRAM IS HALTED, ALL ged OF PREVIOUS TESTING 
IS SAVED. IT WILL REMAIN INTACT UNTIL 


' 1. ANOTHER PROGRAM IS LOADED INTO MEMORY 
2. THE USER RE-EDITS THE TABLE 


TO RESTART THE fon yee ENTER SA 210 AND START. THIS START 


EN S ING AT 2 DO NOT STA H oc 
aa Aeare las HAS NOT BEEN PREVIOUSLY "‘STARTED'’ AT EITHER 200 


SEQUENCE 


_ 
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$DDWO IS FOR DEVICE 0 
$DDW1 IS FOR DEVICE 1, ETC. 


EACH DESCRIPTOR WORD MUST BE 
SET UP AS FOLLOWS: 


BIT 0 - DR11-W lg MODE 


(W=0 
BIT 1 = 2/N CYCLE, 

(O=2 CY, 1=N CY) 
BIT 2 - CABLE T TESTS 

( =NO e 1=YES) 


BIT 5 \ 
BIT 6 > DEVICE PRIORITY 
BIT 7 / 


CZDRLDO=DR11 GEN NPR INTFC SEQUENCE 22 
686 7.4 TESTING UNDER APT (AUTOMATED PRODUCT TESTING) 
688 TO SET UP FOR MULTIPLE BOARDS FOR TESTING UNDER APT CONTROL, 
689 THE APT SYSTEM MANAGER SHOULD ANSWER THE APT QUERIES TO THE 
oy FOLLOWING ITEMS AS INDICATED BELOW: 
692 SOFTWARE ENVIRONMENT: 000 = DUMP MODE 
693 001 - SCRIPT MODE (APT MONITORS 
oe DIAGNOSTIC) 
696 ENVIRONMENT MODE (SENVM): 000 = LET DIAGNOSTIC AUTO-SIZE CONFIGURATOR 
697 AND TEST Lard ba Y (*NOTE*: STARTING 
698 WITH REV ‘D* AND ABOVE, RUNNING DIAG 
699 IN THIS MODE REQUIRES USER TO INPUT 
700 THE STARTING ADDRESSES, AS IS WITH 
nS STANDALONE MODE) 
703 200 - DIAGNOSTIC MUST USE CONF IGURA~ 
704 TION SPECIFIED BY APT ($VECTI, 
me SBASE, SDEVM, SDDWX) 
ANA VECTOR ADDRESS ($VECT1): 300 
yd DEVICE ADDRESS ($BASE): 172410 
711 DEVICE MAP ($DEVM): XXXXXX = EACH Sel BIT INDICATES THAT 
712 BOARD IS PRESENT AND SHOULD 
ar BE TESTED. EXAMPLES: 
715 BIT 0 = BOARD #0 (DEVICE ADR = 172410, wee ADR = 300) 
716 BIT 1 = BOARD #1 (DEVICE ADR = 172420, VEC ADR = 310) 
at4 BIT 2 = BOARD #2 (DEVICE ADR = 172450, VEC ADR = 320) 
A : 
<4 BIT 15 = BOARD #15 (DEVICE ADR = 172600, VEC ADR = 470) 
ue? DEVICE DESCRIPTOR WORDS: XXXXXX = THERE IS 1 DESCRIPTOR WORD 
UNTIL THE CPU FOR EACH DEVICE: 





a a ag 


j 
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8.0 MISCELLANEOUS 






8.1 


POWER FAIL 


IF A POWER FAILURE OCCURS AND at BACKUP MAINTAINS 
THE PROGRAM IN MEMORY, OR A NON-VOLATILE MEMORY EXISTS, 
THE PROGRAM WILL RESTART PRINTING THE FOLLOWING: 


POWER FAILURE = RESTARTING PROGRAM 
THE DIAGNOSIC WILL THEN RESTART AT ADDRESS 210. 


IF CPU IS TURNED OFF WHILE RUNNING, THE ABOVE Pa 
1S FOLLOWED. IF THE PROCESSOR IS HALTED FIRST, THEN 
TURNED OFF, THE PROCESSOR WILL COME BACK uP Hat TED. TO 
RESTART THE PROGRAM, HIT CONTINUE, AND THE REMAINING 
PROCEDURE IS THE SAME AS ABOVE. 
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8.2 


END-OF =PASS MESSAGE 


THE EOP WILL PRINT ONCE EVERY 20 SECONDS, APPROXIMATELY (17 
SECONDS ON AN 11/44), AS FOLLOWS WITH NO ERRORS ON THAT PASS: 


END PASS # XXXXXX 


THE EOP WILL PRINT a4) 64 DEVICES HAVE BEEN pisses’ IF THERE 
IS ONLY 1 MODULE, THE EOP WILL PRINT AFTER 64 PASSES. WITH 

16 MODULES, THE EOP WILL PRINT AFTER ONLY 4 PASSES. 

I WILL PRINT AS FOLLOWS WITH SOME ERRORS WHEN TESTING 1 


END PASS # XXXXXX TOTAL ERRORS THIS PASS ALL MODULE(S) XXXXXX 


THE EOP WILL PRINT THE SAME AS WITH NO ERRORS ON ANY PARTICULAR 
wk WHEN TESTING MORE THAN ONE DEVICE AND ONE OR MORE DEVICES 
HAS FAILED, SINCE et | comin IS MEANINGLESS AND WILL MORE 

THAN LIKELY BE INCORRECT 


THE PASS NUMBER IS CAPABLE OF GOING UP TO 99,999,999 DECIMAL, 
OR ABOUT 3 MONTHS RUNNING WITH EOP DISABLED AND NO ERRORS. IN 
OTHER WORDS, 32767 IS NOT THE LIMIT AS WITH OTHER DIAGNOSTICS. 
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9.0 EXECUTION TIME 
ON A PDP11/44: 
IN ALL MODES: APPROXIMATELY 64 DEVICE PASSES IN 17 SECONDS, ALL MODES. 
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at 10.0 SUBROUTINE ABSTRACT. 
789 
a 10.1 READ 
| as THE aie SUBROUTINE IS USED IN THE ta ROUTINE TO gt ad UP TO 
79 6 DIGITS IN OCTAL, 2 DIGITS IN DECIMAL, OR A SINGLE NON- 
794 : NUMERIC CHARACTER. R4 IS USED AS THE LOCATION TO HOLD THE 
795 NUMBER IN OCTAL, AND IS CLEARED FOR THAT PURPOSE AT THe ey 
796 OF THE SU E. R3 IS TO BE PRELOADED WITH THE NUMBER 
797 DIGITS EXPECTED. SINCE A <CRLF> IS PRINTED WHEN THE LIMIT is 
798 REACHED. ENTERING A <CRLF> BEFORE THE LIMIT IS ne ta S AS 
799 IT WILL BE INTERPRETED AS A NON-NUMERIC CHARACTER AND EX 
800 IN ANY CASE, THE ‘ay INPUTED ASCII CHARACTER IS LEFT IN Loca 
801 TION "ANSWER'. IF A NUMERIC CHARACTER IS INPUTED, IT WILL 
802 CLEAR ALL BUT THE 1ST 4 BITS IN LCCATION ‘ANSWER’, EXPOSING THE 
803 VALUE OF = DIGIT INPUTED, ROTATE R4 TO THE LEFT 3 PLACES TO 
804 MAKE ROOM FOR THE INPUTED DIGIT, AND ADD IT TO R4. LOCATION 
805 "LRSSTC’ IS TO BE LOADED WITH THE LARGEST ASCII NUMBER DIGIT 
806 ACCEPTABLE FOR THIS NUMBER, I.E. 7 OR 9 (FOR OCTAL OR DECIMAL 
807 INPUT RESPECTIVELY). ANY CHARACTER OUTSIDE ASCII ‘0° OR '7/9° 
808 IS TREATED AS A NON-NUMERIC, TRIGGERING AN AUTOMATIC <CRLFD 
B10 AND EXIT. 
1 10.2 ERCAPT 


THIS SUBROUTINE SAVES THE UNIT NUMBER, PASS NUMBER AND TOTAL 
ERRORS FOR THAT DEVICE/PASS WHENEVER IT ENCOUNTERED ERRORS. 
THIS ROUTINE SAVES DATA FOR 150 (DECIMAL) PASSES. IF THE STACK 
SHOULD BECOME FULL, DATA STARTING WITH THE 151ST PASS CONTAIN- 
ING ERRORS IS LOST. 


0 0d Cn Oo Oo On 0D CO 
te os os a st 
ODONAUEWI 


£50 10.3 FIXTBL 

821 THIS SUBROUTINE FILLS THE 17 OCTAL LOCATIONS STARTING AT 

822 "REGADR’ AND *VECADR' FROM THE STARTING VALUES ALREADY LOADED 
it IN THE FIRST LOCATIONS IN STEPS OF 10 FOR EACH TABLE. 

iH 10.4 LODBUF 

827 THE INBUF BUFFER IS LOADED WITH AN INCREMENTING PATTERN 

828 (0,1,2,5,...) BEGINNING AT THE STARTING ADDRESS OF INBUF. THE 


829 NUMBER’ OF WORDS LOADED IS DETERMINED BY THE CONTENTS OF BUFLEN. 











10.5 





839 10.6 


852 10.7 


863 10.8 


10.9 


874 10.10 
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CHKBF F 


THE CHKBUF BUFFER IS LOADED WITH A MODIF 
TERN (0,0,2.2-4.4 6.6 


INCREMENTING PAT=- 

STARTING ADDRESS OF 
ey BY THE CON- 
H 


> 

<e 
ma 
=—xmm 
mmo 


F OADE OR TESTS WHICH 
USE THE MAINTENANCE MODE OF THE DR11-W WHICH HAS A SPECIAL 


ALTERNATING DATI-DATO SEQUENCE OF OPERATION 
INTA 


ba. IE BIT IS CLEARED IN THE CSR THEN THE CSR IS CHECKED FCR 
THE ABSENCE OF THE ERROR BIT AND THE PRESENCE OF READY. THE 
WCR_ IS CHECKED TO SEE THAT IT IS EQUAL TO ZERO. vo CORRECT 


T HE PROGRAM 
WILL FAIL TO UPDATE THE PC RETURN ADDRESS BY 2 IF ERROR IS SET, 
READY IS CLEAR, READY AND ERROR ARE CLEAR OF THE CSR, WCR IS 
NOT ZERO OR THE BAR CONTENTS IS NOT ZERO. THIS WILL CALL THE 
ERROR THAT IS JUST AFTER THE JSR CALL IN THE TEST. IF ALL DATA 
IS ACCEPTABLE, THE PC_IS UPDATED, AND THE RETURN FROM THE SUB- 
ROUTINE IS AFTER THE ERROR CALL. 


DATCHK 


THIS ROUTINE IS ENTERED TO CHECK INBUF AFTER A MAINTENANCE MODE 
OPERATION. THE CONT ot OF INBUF AND THE CONTENTS OF CHKBUF 

ARE CHECKED TO SEE THAT THEY ARE THE SAME. THE NUMBER OF COM- 
PARISONS MADE IS DETERMINED om THE CONTENTS OF BUFLEN. ANY 
ERRORS RESULT IN AN RTS TO THE TEST TO CALL THE ERROR THERE. A 

JSR BACK TO THE SUBROUTINE IS EXECUTED TO RESUME ITS CHECKING. 

WHEN RETURNING, SP RETURN ADDRESS IS UPDATED BY 6 TO RETUPN 
AFTER THE ERROR CALL AND JSR RETURN. 


CLENUP 

THE ROUTINE IS ENTERED AT THE END OF SEVERAL TESTS TO CLEAR ANY 
DATA THAT MAY HAVE BEEN LEFT IN ANY REGISTERS, AND TO RESTORE 
THE INTERRUPT VECTORS. 

CHKCAB 


THIS ROUTINE IS USED IN VARIOUS TESTS TO ALTER THE EXPECTED 
DATA IF THE WRAR-AROUND CABLE IS OUT. 


DATOCK 
ore A_STRING OF DATO'S HAS BEEN COMPLETED ae ROUTINE CHECKS 

T THE CORRECT DATA PATTERN WAS TRANSFERRED TO INBUF. T 

UMBER OF COMPARISONS MADE IS DE 0 
BUFLEN. AN ERROR IN THE CHECK RESULTS IN AN RTS TO THE TEST TO 
CALL THE FIRST ERROR AFTER THE JSR CALL, wen 7 JSR RETURNS 

TOO MANY 
ETURN ADDRESS IS 
IS CALLED. IF 
SECOND ERROR CALL. 


SEQUENCE 

























SS SSS a ih sss sss sl ts ess ess sss. ncnathe= <p cence 
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10.11 


10.12 


10.13 


10.14 


10.15 


ERRCHK 

THIS ROUTINE CLEARS IE AND UPDATES THE PC FOR RETURN AFTER THE 
ERROR IN THE TEST IF ERROR IS CLEAR, IF SET, RETURN IS EXECU- 
TED WITHOUT UPDATING THE PC RETURN SO THE ERROR CALL AFTER THE 
JSR CALL IN THE TEST WILL BE CALLED. 

BPINIT 


THIS SUBROUTINE RELOADS THE ‘*.+2°' AND ‘BPT'’ INTO THE UNUSED 
LOCATIONS BETWEEN 4 AND 776. 


DRGET 

THIS SUBROUTINE EXTRACTS INFORMATION ABOUT THE DR11 WHOS ADDRESS 
WAS INPUTED AND LOADS THE ACCUMULATED DATA INTO THE DEVICE 
DESCRIPTOR WORD FOR THAT BOARD. 

TYPCNF 


THIS SUBROUTINE PRINTS THE BOARD CONFIGURATIONS THAT THE ASIZE 
SUBROUTINE SIZED FOR ON THE UNIBUS. 


ASIZE 
THIS ROUTINE SEMI@AUTOSIZES THE BOARD CONFIGURATION (DUE TO THE 
WIDE ADDRESS W REV _° S MODIFIED TO PROMPT USER FOR 


T P Vv. € 
ADDRESS IS_INPUTED. IF BOARD FAILS ‘imin t DIAGNOSTIC 


NEWLY CREATED THIS RUN. IF THE TABLE ALREADY EXISTS, THE 
ROUTINE ASKS THE USER IF A NEW TABLE IS TO BE CREATED. IF NOT. 
THE ROUTINE IS BYPASSED. 





CZDRLDO-DR11 GEN NPR INTFC 
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10.16 


10.17 


10.18 


10.19 


10.20 


CATCH 

THIS gt ' REPORTS UNEXPECTED OR ERRONEOUS TRAPS OR INTER- 
RUPTS THROUGH THE BREAK=-POINT-TRAP LOADED IN a 4-776. 
THE STACK_IS CLEANED 4 TIMES BEFORE THE ERROR C AND 

ppl BL Ms ag AFTER THE ERROR CALL FOR RETURNING fo THE SOURCE 
PSTATE 


THIS ROUTINE PRINTS THE Po al THE BIT IN THE DDW THAT WAS 
PRELOADED IN LOCATION ‘BITTST 


PNTPRI 

THIS ROUTINE PRINTS THE DEVICE PRIORITY IN THE DDW LOCATION. 
SETTUP 

THIS SUBROUTINE INITIALIZES THE TRAP AND INTERRUPT VECTORS. 
TSTMM 


THIS SUBROUTINE ‘eg - EXISTENCE OF MEMORY MANAGEMENT AND 
IF IT gnis ite CHECKS FOR THE ERROR a ie OF NO MEMORY LOCA- 
T NO ERROR xX BI Ss MOR 


D 
CALL WILL CAUSE A CHECK FOR THE ERRCR BITS IN THE EXPECTED TO 
BE SET FOR ANOTHER CHECK. 
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11.0 DATA STACK 


11.1 


11.2 


11.3 


PATRNS 


THIS SET OF 7 DATA WORDS IS USED TO CHECK ANY LOCATION FOR 
STUCK OR SHORTED BITS. 


EXPATO 


THIS SET OF DATA WORDS IS USED IN TEST 31 TO CHECK ALL POS- 
SIBLE COMBINATIONS OF SET BITS IN THE CSR WITH THE MAINTENANCE 
BIT CLEAR. IT CONTAINS THE EXPECTED DATA THAT THE CSR SHOULD 
CONTAIN AFTER THE BIT COMBINATION IS WRITTEN TO THE CSR. 


EXPAT1 


THIS SET OF DATA WORDS IS USED IN TEST 3 TO CHECK ALL POSSIBLE 
COMBINATIONS OF SET BITS IN THE CSR WITH THE MAINTENANCE BIT 
SET. IT CONTAINS THE EXPECTED DATA THAT THE CSR SHOULD CONTAIN 
AFTER THE BIT COMBINATION IS WRITTEN TO THE CSR. 
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978 
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a 
«NLIST MC,MD,CND 


SEQUENCE 


31 









3032 
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- TITLE czom po-oel GEN NPR INTFC 
;*COPYRIGHT (C) 1981 
; *DIGITAL EQUIPMENT CORP. 

MAYNARD, MASS. 01754 


> 
; PROGRAM BY DAN MILLEVILLE 


i eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
: *PACKAGE (MAINDEC=11=DZQAC=C5), JAN, 1981. 


SEQUENCE 
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CZDRLDO-DR11 GEN NPR INTFC 
OPERATIONAL SWITCH SETTINGS 

3034 -SBTTL OPERATIONAL SWITCH SETTINGS 

38 

7* SWITCH USE 

ye @emwreen  £}; $éx«#s2«#2#eee0eeeeeeeeeee0 

:* 15 HALT ON ERROR 

3* 14 LOOP ON TEST 

:* 13 INHIBIT ERROR TYPEOUTS 

s* 12 100% AUTOSIZE 

s® 10 BELL ON ERROR 

3* 9 LOOP ON ER 

s® 8 LOOP ON TEST IN SWR<6:0> 
se) 7* 7 INHIBIT MULTIPLE ERROR TYPEOUTS 
3037 a3 SRE EREREKREREKEAREEREEREREKEEEREKEERREEREEEREREEK 
3038 ;* >>>>>>>>>>>>> NOTE << KKK KKK KK KKK KKK 
3039 3* THE ‘'TEST NUMBER TRACE ENABLING’ ABOVE IS TO ENABLE PRINTING OF THE 
3040 :* TEST NUMBER AT THE BEGINNING OF EACH TEST, SHOULD YOU HAVE A PROBLEM 
3041 3* wITH THE DIAGNOSTIC oar TO AN ILLEGAL LOCA YWHERE IN 
3042 3* THE TEST. BY ENABLING IT, YOU CAN SEE THE LAST TEST ENTERED BEFORE 
3043 :* Hay OUT-OF SEQUENCE JUMPING OCCURED. THIS IS USEFUL IF YOU ENCOUNTER 
3044 :* UNEXPECTED TRAP FROM A PARTICULAR TEST, BUT DISCOVER THAT THE TEST 
epee :* RAN SUCCESSFULLY WHEN LOOPED. 

* 
3047 t: Z EERE REE EEEEEREEKEREKRKKERAEAEKAERKAEEEEEEKAAKEAEREEAEEEE 
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3049 


001300 
104000 
000004 


000700 
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-SBTTL BASIC DEFINITIONS 


§ 
ERROR=EMT 
SCOPE=I0T 
—— DEFINITIONS 
LF= 12 
CR= 15 
CRLF= 200 
PS= _ pSuePS 


a ae OF THE STACK POINTER *** 1300 *** 


72CODE FIR ae erty TAB 
+s CODE FOR LINE FEED 

ODE FOR CARRIAGE RETURN 
7:CODE FOR CARRIAGE RETURN-LINE FEED 
: PROCESSOR STATUS WORD 


3:STACK LIMIT REGISTER 


PIRQ= ~ 17777 :  UARBUAR INTERRUPT REQUEST REGISTER 
DSWR= 177570 ttt SWITCH REGISTER 
DDISP= 177570 WARE DISPLAY REGISTER 
3 *GENERAL PURPOSE secsstii" DEFINITIONS 

RO= %0 ;;GENERAL REGISTER 
R1= 1 3 GENERAL REGISTER 
R2= %2 3;GENERAL REGISTER 
R3= 23 3:GENERAL REGISTER 
R4= BG ;:GENERAL REGISTER 
R5= 25 ;;GENERAL REGISTER 
R6= 26 a3 RAL REGISTER 
R7= 27 RAL REGISTER 
SP= 26 3sSTACK POINTER 
PC= 27 COUNTER 
z*PRIORITY LEVEL DEFINITIONS 
PRO= 0 ae ITY LEVEL 0 
PR1= 40 PRIORITY LEVEL 1 
PR2= 100 a3 ITY LEVEL 2 
PR3= 140 73PRIORITY LEVEL 3 
PR4= 200 7PRIORITY LEVEL 4 
PR5= 240 7:PRIORITY LEVEL 5 
PR6= 300 ae ITY LEVEL 6 
PR7= 340 ITY LEVEL 7 
3*"SWITCH REGISTER’’ SWITCH DEFINITIONS 
W15 10000 
SW14= 40000 
SW13= 20000 
SWwi2= 10000 
SW11= 4000 
SW10= 2000 
swo9= 1000 
SwO8= 400 
SwO7= 200 
SWwO6= 100 
SWwO5= 46 
Sw04= 20 
SwO3= 10 
SWO2= 4 
SwOl= 2 
SwO0= 1 

SW9=SWO9 

SW8=SW08 

SW7=SW07 


SW6=SW06 


SEQUENCE 
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000001 
100000 


SW5=Sw05 
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w0=SwW00 
BIT eo (BIT00 TO B1T15) 


B1T0=B1T00 
ew $44 ““CPU’’ TRAP VECTOR hiner 


SW4=SW04 
SW3=Sw03 
SW2=SW02 
SW1=Sw01 
SwO0=S 
;*DATA 
BIT15= 10000 
BIT14= 40000 
BIT13= 20000 
BIT12= 10000 
BIT11= 4000 
BIT10= 2000 
B1709= 1000 
BITO8= 400 
BITO7= 200 
BITO6= 100 
BITO5= 40 
BIT04= 20 
IT03= 10 
BITO2= 4 
BITO1= 2 
BITOO= 1 
BIT9=B1T09 
B1T8=B1T08 
BIT7=B1T07 
B1T6=B1T06 
B1T5=B1T05 
BIT4=BI1T04 
BIT3=B1T03 
BIT2=B1T02 
BIT1=B1T01 
=BI 
ERRVEC= 4 
RESVEC= 10 
TBITVEC=14 
TRIVEC= 14 
TVEC= 14 
IOTVEC= 20 
RVEC= 24 
EMTVEC= 30 
TRAPVE C=34 
TKVEC= 60 
TPVEC= 64 
PIRQVEC=240 
USERR =ERRVEC 
SE tC 


ME OUT AND OTHER ERRORS 
LINSeaven AND ILLEGAL INSTRUCTIONS 


: TRACE TRAP 
: IBREAKPOINT TRAP (BPT) 
Hd ot 8b OUTPUT TRAP (IOT) **SCOPE** 


FAIL 
: sEMULATOR TRAP (EMT) *kERROR** 
AP** TRAP 


SSTTY KEYBOARD VECTOR 
zz: TTY PRINTER VECTOR 
PROGRAM INTERRUPT REQUEST VECTOR 


sBASE DEVICE ADDRESS 
;BASE VECTOR ADDRESS 
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000001 


100000 
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~-SBTTL DEFINITIONS OF THE CSR BITS 


RREARAERRERREEEK ERA EKRREERAKRAEEKEREEERREEEKEARREKREE 


ZowDex x TMH TNG=: 
a 


SooooQooooooo 
oS > Salinas tactial 
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AAAAAAQAQAO: 
Dex THM HHA: 
SNS ZO 


SEQUENCE 


-SBTTL CSR BIT COMPLIMENT DEFINITIONS 


5 REAR EAAEAAEAEAEAAEEREAAAAAAAREKAAAAAARERARARAERAAAEEAEAREREE 


=177776 
77 


NN tt es 


; COMPLIMENT 


75 ; COMPLIMENT 


: COMPL IMENT 


3 
y & FNCT2 & FNCTS 


>Orrran 


37 


————— —E ee = — 


m 3 
| CZDRLDO=DR11 GEN NPR INTFC MACRO M1113 O2-NOV-81 16:08 PAGE 46 SEQUENCE 38 
COMPLEMENTS OF BIT DEFINITIONS 


310 -SBTTL COMPLEMENTS OF BIT DEFINITIONS 
310 J FARA AAARAAAAAAAAAAHAREEAAERAAAARREEARARKEREERAAER ERATE AAe 
| 3104 177776 CBITO =177776 ;COMPLIMENT OF BITO 
3105 177775 CBIT1 =177775 ;COMPLIMENT OF BIT] 
3106 177773 its =177773 ;COMPLIMENT OF BIT2 
3107 177767 CBIT =177767 ;COMPLIMENT OF BIT3 
3108 177757 CBITS =177757 ;COMPLIMENT OF BITS 
3109 177737 CBITS =177737 ; COMPLIMENT OF BITS 
3110 177677 CBIT6 4 =177677 ; COMPLIMENT OF BIT6 
3111 177577 CBIT? ==177577 ;COMPLIMENT OF BIT? 
3112 177377 CBIT8 =177377 ; LIMENT OF BITS 
3113 176777 CBIT9. =176777 ; COMPLIMENT OF BIT9 
3114 175777 CBIT10 =175777 ;COMPLIMENT OF BIT10 
3115 173777 CB1T11 =173777 ;COMPLIMENT OF BIT11 
3116 167777 (BIT12 =167777 ;COMPLIMENT OF BIT12 
3117 157777 CBIT13 =157777 ;COMPLIMENT OF BIT13 
3118 137777 CBIT14 =137777 ; COMPLIMENT OF BIT14 
3119 077777 CB1T15 =77777 ;COMPLIMENT OF BIT15 
3120 057777 (B1513 =57777 ;COMPLIMENT OF BIT15 @ BIT 13 


a = 


N_ 3 
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CZDRLDO 
PRIORITY LEVELS AND OTHER DEFINITIONS 
3121 -SBTTL PRIORITY LEVELS AND OTHER DEFINITIONS 
2156 eee eeneeeeaeeeeneeaKeeeeeeeeeKeteneeeeneneeeaneeeneeeeneneteee 
310 000140 LEVEL3 =140 
3124 000200 LEVELS =200 
3125 000240 LEVELS =240 
3126 000300 LEVEL6 =300 
3127 000340 LEVEL? =340 
3128 000033 ESC =33 
3129 000003 TLC) = = 
3130 000015 CARETN =15 
3131 177572 0 =177572 
3132 172300 KIPDRO =172300 
3133 172304 KIPDR2 =172304 
3134 172324 KDPDR2 =172324 
3135 172340 KIPARQ =172340 
3136 172344 KIPAR2 =172344 
3137 . 172364 KDPAR2 =172364 
3138 000250 MMVECT =250 
3139 000252 S =252 
3140 000004 TOVECT =4 
3141 00006 TMOPSW =6 
3142 000003 BPT =3 
3143 025622 TST4O=ENDEV BRANCH TO TEST 40 = BRANCH TO ENDEV (THERE IS NO TEST 40) 


— = ee 


B 4 
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PRIORITY LEVELS AND OTHER DEFINITIONS 


144 J RRRARAAAAAEEARARREEEEEREREREREEERAERAEREERREREREREERERRERERERERREREE 

145 3* ALL UNUSED LOCATIONS FROM 4-776 WILL CONTAIN A ‘’.+2,BPT'’ SEQUENCE 

145 :* TO CATCH ILLEGAL TRAPS & INTERRUPTS TO THE Ncarcit® LOCATION 

3147 * 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 

3148 PITITITITITITICILTITITITI ITLL ITI TILT Lit TTL LI Litt TTL LLL 

3149 000014 =14 ; THE BPT TRAP VECTOR POINTS TO THE j 
$120 000014 006466 BPTVCT: “WORD CATCH é ILLEGAL TRAP HANDLER ‘'CATCH'' 

151 000016 000340 -WORD LEVEL7 
3153 000042 -=42 
iF 9} 000042 Soot we 0 ;CLEAR THIS LOCATION (FOR APT MONITOR STARTING ADDRESS) 
3156 000174 000000 DISPRE: .WORD 0 
3157 000176 000000 SWREG: .WORD 0 
Hh 3 33 RRAKKEAKEAAAEKRAEAAKEEAEEEEEEAEEAEEAEKEAAEKEERAKRKEEAKERAKEREEEEKRKEEEEE 

1 ; 
suet :PROGRAM STARTING LOCATIONS 
3162 : g RERAAAEKAEKEERAAREEKAKEAEREEAEEKEKAEAAAAKERAAEAEKRKEEAEKEEAEREEAEERERKEE 

3163 000200 000137 011420 JMP START1 sNORMAL START 
3164 000204 000137 034230 JMP MBD sENTER MULTIPLE BOARD DIALOQUE 

3165 000210 005037 001416 STAGIN: CLR $SPASS ;CLEAR $PASS 

3166 000214 005037 002716 - CLR $PASS2 sCLEAR $PASS2 

3167 000220 005037 001422 CLR T sCLE 
3168 224 005037 001420 CLR SDEVCT sCLEAR $DEVCT 

3169 000230 005037 001414 CLR STESTN sCLEAR STESTN 

3170 000234 005037 002706 CLR EOPLOC ;CLEAR EOPLOC 

3171 000240 012737 044652 044650 MOV MCAPSTK,CAPNTR ;RESET THE CAPTURE POINTER 

3172 000246 012706 011424 MOV ASTART, $P sRESET THE STACK POINTER 

3173 000252 000137 012356 JMP BEGINI + JUMP TO BEGIN] FOR RESTART WITHOUT HEADER PRINTING 
3174 001000 -=1000 

| 


C 4 
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ACT11 HOOKS 


3175 » SBTTL ACT11 HOOKS 


FRRRRRRAEERARREEREREREREERE RARE RREREREEREAREEEERERERERRERERRRREEE 


‘ HOOKS a ho BY ACT11 


01 sSAVE PC 
000046 =4 
000046 pee aes SENDAD 331)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 000000 WORD 0 pars 3 LOC. pe TO ZERO 
001000 =$SVPC 33 RESTORE P 
3176 .SBTT! APT PARAMETER BLOCK 


F REE EEREEAEEEAEKEREERAREEAEEREEEREAAERAAEREREREAEAEREEEKEEEKEREKREEEEEEKEKEE 


ae LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


FRR RREEREREEREREREEREEREERRERERRERERERERERREEERREREEREREERERE 


001000 ~SX=.  ;;SAVE CURRENT LOCATION 

000024 2=24 33SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 33 TART UP 

000044 .=44 [POINT TO APT INDIRECT oo PNTR. 
000044 001000 SAPTHDR SIPOINT TO APT HEADER BLOCK 

001000 -=.$X ;;RESET LOCATION COUNTER 


SRE EREREEEEEREREEERERERERREREREKEREREREERRREREEERAREEEEE 


SE TUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
a SPEC. 


001000 $AP 
001000 000000 $HIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT (AILBOX ADDR. 
001002 001410 $MBADR: .WORL $MAIL ::ADDRESS OF APT MAILBOX (BITS 0-15) 
000001 $TSTM: .WORD 1 ::RUN TIM OF LONGEST 
001006 000001 SPASTM: .WORD 1 ; RUN TIME | IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
001010 000000 SUNITA: .WORD 0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
001012 000052 "WORD SETEND-SMAIL/2 ::L ON ENGTH MAILBOX~E TABLE (WORDS) 





4 
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COMMON TAGS 


3178 » SBTTL COMMON TA 
LRRRERARRRERRRRRRRRR REE EE REE AAA AAAAAAAAAARARA RARER EEE 
SRTHIS TABLE goth we VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


001300 .=1300 

901300 SCMTAG: , zSTART OF COMMON TAGS 
001 30¢ STSTNM: 0 ;:CONTAINS THE TEST NUMBER 
00130 SERFLG: 0 [CONTAINS ERROR FLAG 
001304 SICNT: 0 ::CONTAINS SUBTEST ITERATION COUNT 
001306 SLPADR: 0 ::CONTAINS SCOPE LOOP ADDRESS 
001310 SLPERR: 0 T:CONTAINS SCOPE RETURN FOR ERROR 
001312 SERTTL 0 CONTAINS TOTAL ERRORS DETECTED 
001314 SITEMB 0 ::CONTAINS ITEM CONTROL BYTE 
001315 E 1 CONTAINS MAX. ERRORS PER TEST 
001316 SERRPC 0 ::CONTAINS PC OF LAST ERROR INSTRUCTION 
001320 SGDADR: - 0 ::CONTAINS ADDRESS OF ‘GOOD’ DATA 
001322 000000 $BDADR: :WORD 0 Z:CONTAINS ADDRESS OF *BAD® DATA 
001324 000000 $GDDAT: :WORD 0 i SCONTAINS GOOD" DATA 
001326 $B “WORD 0 INS ‘BAD’ DAT 
001330 000000 “WORD 0 < RESERVED=-NOT TO BE. USED 
001332 000000 “WORD 0 
001334 000 $AUTOB: {BYTE 0 ;sAUTOMATIC MODE INDICATOR 
001335 000 SINTAG: BYTE 0 INTERRUPT MODE INDICATOR 
001336 000000 “WORD 0 
001340 177570 SWR D DS ADDRESS OF SWITCH REGISTER 
001342 177570 DISPLAY DDISP TIADDRESS OF DISPLAY REGISTER 
001344 177560 $TkS: 177560 :TTY KBD STATUS 
001346 177562 $TKB: 177562 ::TTY KBD BUFFER 
001350 177564 $TPS: 177564 Z:TTY PRINTER STATUS REG. ADDRESS 
001352 177566 $TPB: 177566 {TTY PRINTER BUFFER REG. ADDRESS 
001354 000 $NULL: .BYTE 0 [CONTAINS NULL CHARACTER FOR FILLS 
001355 002 $FILLS: (BYTE 2 ::CONTAINS # OF FILLER CHARACTERS REQUIRED 
001356 012 $FILLC: BYTE 12 SE INSERT FILL CHARS. AFTER A FEED" 
001357 000 STPFLG: .BYTE 0 i: TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES) 
001360 000000 $TMPO: .WORD 0 ; USER DEFINED 
001362 000000 $TMP1: :WORD 0 USER DEFINED 
001364 000000 $TMP2: :WORD 0 :USER DEFINED 
001366 000000 $TMP3: WORD 0 SZUSER DEFINED 
001370 000000 $TMP4: WORD 0 :USER DEFINED 
001372 000000 $TMPS: :WORD 0 :USER DEFINED 
001374 000000 :WORD 0 33 DEF INED 
001376 000000 SESCAPE :0 ZESCAPE ON ERROR ADDRESS 
001400 207377377 SBELL: .ASCIZ <207>¢377><377> CODE FOR BELL 
001404 077 SQUES: “ASCII TQUESTION MARK 
001405 015 SCRLF: “ASCII <i5> :: CARRIAGE RETURN 
001406 012 000 SLF:  ASCIZ_ <12> LINE FEED 

LARA EAEEREEEERAREEEEAEEEEERERERAEEKAERE AERA EREEERAREREREERREEE 

*S8TTL APT MAILBOX-ETABLE 
FARRAR RERAEEREEREREEEERAEKEEEREREEREERREEEKEERAKEERERREEEEEE 
* EVEN 

001410 $MAIL: ;APT MAILBOX 
001410 000000 SMSGTY: .WORD AMSGTY : :MESSAGE TYPE CODE 
001412 000000 SFATAL: .WORD AFATAL ;:FATAL ERROR NUMBER 
001414 000000 STESTN: “WORD ATESTN. :ZTEST NUMBE 
001416 000000 $PASS: WORD APASS ::PASS COUNT 





i 
ee a at nS Ae eS 






















Sssssssssesses 


Bt st ts ss es 


001440 
001441 


00 
001502 


MMMM aA 
MONON a 


26 
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APT MAILBOX~E TABLE 


000000 
000090 
000000 
000900 

000 

000 
000000 
000000 
000000 


000 
000 


000000 


SDEVCT: 
SUN 
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ADEVCT 
AUN 


AMAMS1 
AMTYP1 


SEQUENCE 43 


+ sDEVICE a! 
/0 UNIT 


PU TYPE 
1/04=01, AS my £ OF aes 211/40=04,11/45=05 


11/70=06.PDQ=07,0 
BIT 10=REAL TI toc 
BIT 9=FLOATING POINT _ 
BIT 8=MEMORY MANAGEMENT 
3;HIGH ADDRESS,M.S. BYTE 


PE ,BLK#1 
MEM.TYPE BYTE <== (HIGH BYTE) 
0 NSEC =001 
300 NSEC BIPOLAR=002 
500_N re ts 003 


3 ESS,B 
MEM.LAST ADDR. - iy BYTES, THIS WORD AND LOW OF ‘’TYPE’’ ABOVE 
3 HIGH ADDRESS,M.S. BYTE 


GH_ ADDRESS ,M.S.BYTE 

:ImEN. TYPE ,BL 

EM.LAST ADDRESS, mas 
HIGH ADDRESS,M.S.BYTE 
7 MEM. TYPE ,BLKA4 
2 ;MEM.LAST ADDRESS ,BLK&4 
TER RUPT VECTOR#1,BUS PRIORITY#1 

: INTERRUPT VECTOR#2BUS PRIORITY#2 

: BASE ADDRESS OF EQUIPMENT UNDER TEST 


; ; CONTROLLER DESCRIPTION WORD#1 
2 CONTROLLER DESCRIPTION WORD#2 
E DESCRIP WORD#0 


DESCRIPTOR WORD#14 
DESCRIPTOR WORD#15 


001534 


WNWWWWWNAWANWANWNAAANWW 
at os os SS 
== 


SBSLETRANLESELEALATSSS 
S88S S888S S88S S885 


RO 
oS 
—= 


ed ed ed ed ed aed ed eed eed 
WONOUSWN— 


32 
3 

32 
32 
32 
32 
32 
32 
32 
32 
32 
32 
32 
32 
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047162 


000000 


F_4 
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SEQUENCE 


-SBTTL _ERROR POINTER TABLE 
s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND 
:SLOCATION ss ae Maa INDICATES WHICH ITEM IN THE as is PERTINENT. 


ie NOTE2: 
is 


éerRTB: 
; ITEM 1 


Z1TEM 2 
sITEM 3 
s ITEM 4 
31TEM 5 
7 ITEM 6 


zITEM 7 


I 
EACH ITEM IN we TABLE CON Hose Be 


IS 0 THE ONLY PERTINENT DATA _IS (SERR 
POINTERS EXPLAINED AS FOLLOWS: 
+ 3POINT TO THE Hoey es SAGE 
OINTS TO THE DAT 
::POINTS TO THE DATA 
:sPOINTS TO THE DATA FORMAT 


droge ga DR11 REGISTER 

: TEST ERR PC ABRTPC_ REGISTER 
:STESIN, SERRPC ,OLDPC1,DREG,0 
PRINT ALL DATA OCTAL 


2DR11-8 OR W MODE INCORRECT (0=B, 1=W) 
TEST # ERR PC _EXPMOD ACTMOD CSRADR 

STESTN, SERRPC ,STMP1 ,BORW,CSR,0 

PRINT ALL DATA OCTAL 


7 INIT pt TO CLEAR WCR 

;TEST # ERR PC WCRADR WCRCONTENTS 
:STESTN, SERRPC ,WCR,RWCR,O 

PRINT ALL DATA OCTAL 


init et TO CLEAR BAR 

ERR PC_BARADR BAREXP BARRCV 
i STESIN, SERRPC ,8AR, EBAR,RBAR ,O 
PRINT ALL DATA OCTAL 


soy pe 4 TO CLEAR BDR 

TES ERR PC_BDRADR BDRCONTENTS 
‘STESTN, SERRPC ,BDR,RBDR,O 

PRINT ALL DATA OCTAL 


: INIT caste? TO CLEAR ALL CSR R-W BITS 

TEST ERR PC CSRADR CSREXP CSRCONTENTS 
i STESIN, SERRPC,.CSR,ECSR,RCSR.0 

PRINT ALL DATA OCTAL 


;RESET FAILED TO CLEAR WCR 

“TEST # ERR PC WCRADR WCRCONTENTS 
SSTESTN, SERRPC,WCR,RWCR, 

:PRINT ALL DATA OCTAL 


4G 


20 
221 001624 
22 001626 
3223 001630 
3224 001632 
3225 
3226 
3227 001634 
3228 001636 
3229 001640 
3230 001642 
3231 
3232 
3233 001644 
3234 001646 
3235 001650 
3236 001652 
3237 
3238 
3239 001654 
3240 001656 
3241 
3242 001660 
3243 001662 


3245 
3246 001664 
3247 001666 
3249 001670 
3250 001672 
3251 
3252 
3253 001674 
See 001676 


32 

3256 001700 
3257 001702 
3258 


3263 OO1712 
32 


3265 
3266 001714 
3267 001716 
3268 001720 
3269 001722 
3270 


3271 

3272 001724 
3273 001726 
3274 001730 
3275 001732 


CZDRLDO-DR11_ GEN NPR INTFC 
ERROR POINTER TABLE 


047644 
053046 


055350 
000000 
047733 
053046 
055350 
000000 
047757 
053161 


055366 
000000 
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ITEM 10 


s ITEM 11 


z ITEM 12 


s ITEM 13 


ITEM 14 


7 ITEM 15 


7 ITEM 16 


3ITEM 17 





PAGE g, . 





SEQUENCE 


:ATTEMPT TO SET ALL WOR BITS FAILED 
[TEST # ERR PC WCRADR WCRCONTENTS 
S$TESTN, SERRPC,WCR,RWCR,O 

SPRINT ALL DATA OCTAL 


+ tse ran TO CLEAR BAR 

; TEST ERR PC_ BARADR BAREXP BARRCV 
‘STESTN, SERRPC ,BAR,EBAR,RBAR,0 
PRINT ALL DATA OCTAL 


ab aad TO SET ALL BAR BITS TO 1 FAILED 
ERR PC_ BARADR BAREXP BARRCV: 

i STESIN, SERRPC ,BAR,EBAR ,REAR,O 

PRINT ALL DATA OCTAL 


2 BIT TEST a ee - DIAGNOSTIC NOT CONTINUED) 
:TEST # ERR PC_ TESTED CSRADR CSREXP CSRCONTENTS 
7STESTN, SERRPC BUT, sone ECSR,RCSR,0 
PRINT ALL DATA OCTAL 
:CSR BIT TEST val 

BIT(S) 


:TEST # ERR PC TESTED CSRADR CSREXP CSRCONTENTS 
SSTESTN, SERRPC BUT, CSR,ECSR,RCSR,O 


PRINT ALL DATA OCTAL 


BIT TEST FAILED 
BIT(S) 


Ss 
:TEST # ERR PC TESTED EIRADR EIREXP EIRCONTENTS 
7 $TESTN, SERRPC BUT, CSR,EEIR,REIR.O 
PRINT ALL DATA OCTAL 


READY AND MAINTENANCE ARE NOT THE ONLY ots SET IN CSR 
;TEST # ERR PC_CSRADR BS oe CSRCONTENT 

:STESTN, SERRPC,CSR, fre R,0 

PRINT ALL DATA OCTA 


zATTN ERROR FAILED TO SET PROPERLY 
TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
7STESTN, SERRPC,CSR,ECSR,.RCSR,O 

PRINT ALL DATA OCTAL 


zATIN AND ERROR FAILED TO CLEAR PROPERLY 
“TEST # ERR PC CSRADR CSREXP CSRCONTENTS 

*$TESTN, SERRPC, cshe ECSR.RCSR, 

SPRINT ALL DATA OCTAL 


45 


—————— 
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3279 001740 
3280 001742 
3281 


3282 
3285 gore 


3288 
3289 001754 
3290 001756 
3291 001760 
3292 001762 
3293 


3294 

3295 001764 
3296 001766 
3297 001770 
3298 o01775 


08 
309 002010 
002012 


CNAULSWN—o 


3319 002024 
3320 002026 
3321 002030 
3322 002032 
3325 


3324 

3325 002034 
3326 002036 
3327 002040 
3328 002042 


MACRO M1113 02-NOV-81 16:08 





H 4 
PAGE 55 SEQUENCE 


: ERROR BIT SHGULD HAVE BEEN CLEAR 

>TE RADR tae CSRCONTENTS 
:STESTN, SERRPC,CSR,ECSR,RCSR,O 

PRINT ALL DATA OCTAL 


;READY OF CSR WAS NOT SET 

[TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
S$TESTN, SERRPC, CSR,ECSR,RCSR 

SPRINT ALL DATA OCTAL 


;B1T_0 OF THE BAR WAS SET 

sTEST # ERR PC_ BARADR BAREXP BARRCV 
:$STESTN, SERRPC ,BAR, EBAR, 0 

PRINT ALL DATA OCTAL 


FUNCTION BIT(S) ARE NOT CLEAR 

iT # ERR PC_CSRADR _ESnexP CSRCONTENTS 
7$TESTN, SERRPC,CSR,ECSR.RCSR,O 

PRINT ALL DATA OCTAL 


s:DSTAT A, B OR C ARE NOT AS EXPECTED 

sTEST # ERR PC_CSRADR CSREXP CSRCONTENTS 
:$TESTN, SERRPC,CSR,ECSR,RCSR,O 

PRINT ALL DATA OCTAL 


:BDR IS NOT CLEAR 
;TEST # ERR PC_ BDRADR BDRCONTENTS 
:STESTN, SERRPC ,BDR,RBDR,O 

:PRINT ALL DATA OCTAL 

zALL_BDR BITS ARE NOT 


SET 
TEST # ERR PC_ BDRADR BDRCONTENTS 
SSTESTN, SERRPC BDR,RBDR,O 


PRINT ALL DATA OCTAL 


so sane NOT HAVE BEEN LOADED WITH NEW thea 
TEST # ERR PC_BDRADR BDREXP BDRCONTENTS 

ISTESIN, SERRPC ,,BDR,EBDR, 0 

PRINT ALL DATA OCTAL 


soe PATTERN NOT CORRECT 

T # ERR PC_ BDRADR BDREXP BDRCONTENTS 
iSTESIN, SERRPC ,BDR,EBDR,RBDR,O 
PRINT ALL DATA OCTAL 
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ERROR POINTER TABLE 


3329 s ITEM 32 
3330 002044 051023 -WORD M37; READY IS NOT THE ONLY BIT SET 
3331 002046 053274 ;WORD DH17 :TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
3332 002050 055404 “WORD DT17 :$TESTN,SERRPC,CSR,ECSR,RCSR, 
3333 052 000000 “WORD 0 [PRINT ALL DATA OCTAL 
3335 SITEM 33 
3336 002054 051061 .WORD EMO READY SHOULD NOT BE SET 
3337 002056 053274 “WORD DH17 TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
3338 002060 055404 “WORD ‘$TESTN, SERRPC., CSR,ECSR,RCSR,O 
3339 002062 000000 “WORD 0 [PRINT ALL DATA OCTAL 
3341 sITEM 34 
3342 002064 051111 .WORD —M41 — ;READY WAS CLEARED BUT NEVER SET AGAIN 
3343 002 053274 “WORD DH17 :TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
3344 002070 055404 “WORD DT17 :$TESTN,SERRPC,CSR, ECSR, RCSR,0 
3345 002072 000000 “WORD 0 [PRINT ALL DATA OCTA 
3347 sITEM 35 
3348 002074 051213 .WORD €M43 —;DR11 FAILED TO INTERRUPT 
3349 002076 053554 “WORD DH43  :TEST # ERR PC CSRADR CSRCONTENTS 
3350 002100 055464 “WORD DT43  :$TESTN,SERRPC,CSR,RCSR,O 
3351 002102 000000 "WORD 0 [PRINT ALL DATA OCTAL 
53 s ITEM 36 
3354 002104 051244 .WORD E—M44 —-DR11 INTERRUPTED BuT IT SHOULDN'T HAVE 
3355 002106 053554 “WORD DH43  :TEST # ERR PC CSRADR CSRCONTENTS 
3356 002110 055464 “WORD DT43 : STESTN. SERRPC,CSR,.RCSR,0 
3357 002112 000000 , “WORD 0 [PRINT ALL DATA OCTAc 
3359 sITEM 37 
3360 002114 051314 -WORD EM45 —_; ERROR BIT SHOULD NOT BE CLEAR 
3361 002116 053274 “WORD DH17 :TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
362 002120 055404 “WORD DT17 :$TESTN,SERRPC,CSR,ECSR.RCSR,O 
3363 002122 000000 “WORD 0 [PRINT ALL DATA OCTAL 
5 s ITEM 40 
3366 002124 051427 .WORD EM47 ;CSR_IS WRONG 
3367 002126 053274 “WORD DH17 :TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
3368 002130 055404 “WORD DT17 :$TESTN,SERRPC,CSR,ECSR.RCSR,O 
3369 002132 000000 “WORD 0 [PRINT ALL DATA OCTAL 
SITEM 41 
3372 002134 051444 .WORD EM50 ; TRANSFERS SHOULD HAVE BEEN INHIBITED 
3373 002136 053620 “WORD DH50 TEST # ERR PC WCRADR WCREXP WCRRCV BARADR BAREXP BARRCV 
3374 002140 055476 “WORD DT50 ‘STEIN, SERRPC,WCR, EWCR,RWCR,BAR,EBAR, RBAR,0 
3375 002142 000000 “WORD 0 SPRINT ALL DATA OCTAL 


s1TEM 42 
1 .WORD €—MS1 —_;DR11 SHOULD NOT HAVE INTERRUPTED A SECOND TIME 
4 “WORD DH43  :TEST # ERR PC CSRADR- CSRCONTENTS 
4 “WORD DT43 :$TESTN,SERRPC.CSR.R 
0 -WORD 0 [PRINT ALL DATA OCTAL 


3377 

3378 002144 0 
3379 002146 0 
3380 002150 0 
3381 002152 0 
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3388 
3389 002164 
3390 002166 
3391 002170 
3392 002172 
3393 
3394 
3395 002174 
3396 002176 
3397 002200 
3398 002202 
3399 
3400 
3401 002204 
3402 002206 
3404 002210 
3405 002212 
3406 
3407 


3408 002214 
3409 002216 


— 


Ss 


CONUS WAR “OVO NAUSWN—O 
ron 
Mnrr 
as 
NO 


MOPS NONONONOR 2 St 


KRERAAEEKEEFSELELEFSEL ER EEEL ERE 
RARUVLSY 


051752 
053776 


055536 
000000 
052002 
054143 
055556 
000000 
052041 


000000 
052124 
054312 
055606 


052173 


ITEM 43 


sITEM 44 


sITEM 45 


sITEM 46 


sITEM 47 


3 ITEM 50 


7 ITEM 51 


zs ITEM 53 


4 
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ye INTERRUPT DID NOT OCCUR 
S ERR PC CS 


‘STEIN, SERRPC,CSR,R 
SPRINT ALL DATA octane 


om IS WRONG 


RoR. CSRCONTENTS 


T # ERR PC_ BARADR BAREXP BARCONTENTS 
iSTESIN, SERRPC ,BAR,EBAR,RBAR, 
PRINT ALL DATA OCTAL 


:BAD DATA_IN 


BDR 
TEST # ERR PC 


; BUFFER DATA NOT CORRECT 
CHECK 


BDRADR on BDRCONTENTS 
:STESTN, SERRPC ,BDR,EBDR.R 
PRINT ALL DATA OCTAL 


CHECK 


INPUT 


SEQUENCE 


INPUT 
;TEST # ERR PC_BUFADR BUFDAT BUFADR BUFDAT CSRADR 
:STESTN, SERROC ,STMP4 ,$TMP2,$TMP5,$TMP3,CSR,0 


PRINT ALL DATA OCTAL 


‘ted MANY WORDS WERE TRANSFERED 
DIDNOT 


;TEST # ERR PC EXPECT ADRESS CSRADR 
7STESTN,SERRPC, git S$TMP3,CSR,0 
PRINT ALL DATA OCTA 


syeemactee TRAP OR INTERRUPT TO TRAP ADDRESS BELOW 
TEST # c uw TRAP ADR 


ERR P 


OLDPC 


WCRADR 
;S$TESTN, SERRPC ,WCR,OLDPC2,BDVECT,0 
PRINT ALL DATA OCTAL 


:CSR_AND-OR WCR 7 a ARE INCORECT 


:TEST # ERR PC 


WCREXP 


WCRRCV tag be _— BARE XP BAR | 


*$TESTN, SERRPC, Wer FUCR, RWCR,ECSR,RCSR,EBAR,R 
[PRINT ALL DATA OCTAL 


:OR11 porenmusree AT WRONG LEVEL 


;TEST # ERR PC 


EXPLVL et ee 


:STESTN, SERRPC ,DRLEV, LEVEL 
PRINT ALL DATA OCTAL 


:DR11 FAILED TO INTERRUPT 


;TEST # ERR PC 
7STESTN, SERRPC ,STMP1,C 


EXPLVL anaes 


PRINT ALL DATA OcTAL 


CSRADR 


48 
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ERROR POINTER TABLE 


37 sITEM 54 
335 002264 052233 «WORD EM65 =: 2=N CYCLE BURST SWITCH IN WRONG POSITION 
3439 002266 054527 “WORD DH65 TEST # ERR PC CSREDR E IREXP EIRRCV 
3440 002270 055660 “WORD D165  :$TESTN,SERRPC,CSR,EEIR.REIR, 
3441 002272 000000 .WORD 0 SPRINT ALL DATA OCTAL 


49 
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CZDRLDO-DR11 GEN NPR INTFC MACRO M1113 O02-NOV-81 16:08 PAGE 9 SEQUENCE 50 
ERROR POINTER TABLE 


is 002274 ER200: THAD IS THE STARTING POINT FOR ERROR MESSAGES 201 
344 HROUGH 277. THEY ARE USED FOR MULTIPLE ERROR MESSAGES. 


3444 Z1TEM 201 

3445 002274 051752 .WORD €M57 :BUFFER DATA NOT CORRECT 

3446 002276 053776 “WORD DH57 CHECK CHECK INPUT INPUT 
3447 [TEST # ERR PC BUFADR BUFDAT BUFADR BUFDAT CSRADR 
3448 002300 055536 .WORD DT57  :$TESTN, SERRPC,STMP4,$TMP2,$TMPS,$IMP3,CSR,0 
3449 002302 000000 .WORD 0 :PRINT ALL DATA OCTAL 

3451 s1TEM 202 

3452 002304 052347 WORD EM202_ ;CSR PATTERN NOT CORRECT 

3453 002306 054645 “WORD DH202 :TEST # ERR PC (CSRADR PATLDD CSREXP CSRRCV 
3454 002310 055710 WORD DT202 :$TESTN,SERRPC,CSR,BUT,ECSR,RCSR,O 

3455 002312 000 “WORD 0 [PRINT ALL DATA OCTAL 

3457 ZITEM 203 

3458 002314 050402 “WORD EM26 0 BIT PATTERN TEST FAILED IN BAR 

3459 002316 053424 “WORD DH26  :TEST # ERR PC BARADR BAREXP BARCONTENTS 
3460 002320 055434 “WORD DT26 :$TESTN,SERRPC,BAR,EBAR,RBAR, 

3461 000000 “WORD 0 [PRINT ALL DATA OCTAL 

3463 ZITEM 204 

3464 002324 050441 .WORD EM27 ;WCR DATA PATTERN NOT CORRECT 

3465 002326 053350 .WORD DH23  :TEST # ERR PC WCRADR WCREXP WCRCONTENTS 
3466 002330 055420 “WORD DT23 ‘ STESTN. SERRPC,WCR, EWCR,RWCR, 0 

3467 002332 000000 “WORD 0 [PRINT ALL DATA OCTAL 

3469 ZITEM 205 

3470 002334 050773 .WORD £—M36  ;BDR PATTERN NOT CORRECT 

3471 002336 053500 “WORD DH34 :TEST # ERR PC BDRADR BDREXP BDRCONTENTS 
3472 002340 055450 “WORD D134 :$TESTN,SERRPC,BDR,EBDR,RBDR,O 

3473 002342 000000 ;WORD 0 [PRINT ALL DATA OCTAL 

3475 Z1TEM 206 

3476 002 051631 .WORD —M53  ;WCR NOT EQUAL TO ZERO 

3477 002346 055064 WORD DH210 :TEST # ERR PC WCRADR WCRCONTENTS 

3478 002350 055760 “WORD DT210 :$TESTN,SERRPC,WCR,RWCR,O 

3479 002352 000000 “WORD 0 :PRINT ALL DATA OCTAL 

3481 Z1TEM 207 

3482 002354 051657 “WORD EMS4 =; BAR Is WRONG 

3483 002356 053424 “WORD DH26  :TEST # ERR PC BARADR BAREXP BARCONTENTS 
3484 002360 055434 -WORD DT26 ‘STEIN, SERRPC ,BAR, EBAR,RBAR, 

3485 2362 000000 “WORD 0 :PRINT ALL DATA OCTAL 

3487 ZITEM 210 

3488 002364 051714 .WORD —M56 — ;:DATA NOT TRANSFERED CORRECTLY 

3489 002366 053717 -WORD DH56  :TEST # ERR PC NPRIAD NPRIEX NPRIRC CSRADR 
3490 002370 055520 “WORD D156 :$TESTN,SERRPC,ANPR1,ENPR1,NPR1,CSR,O 

3691 002372 000000 “WORD 0 [PRINT ALL DATA OCTAL 

3493 ZITEM 211 

3494 002374 052377 -WORD EM211 — ;BDR AND-OR WCR AND-OR BAR ARE INCORECT 

3495 002376 055130 WORD bHG11 TEST # ERR PC WCRADR WCREXP WCRRCV BDREXP BDRRCV BAREXP BAR 
3496 002400 055772 “WORD DI211 :$TESTN,SERRPC,WCR, EWCR,RWCR,ECSR,RCSR,EBAR,RBAR,O 
3497 002402 000000 .WORD 0 SPRINT ALL DATA OCTAL 


| Mm 4 
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ERROR POINTER TABLE 


3498 ZITEM 212 
002406 051352 .WORD EM46 FUNCTION BITS DIDN'T INCREMENT IN MAINT MODE 
500 002406 053274 .WORD DH17 ;TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
3501 002410 055404 “WORD DT17 ‘STEIN, SERRPC,CSR,ECSR,RCSR,0 . 
3502 002412 000000 “WORD 0 [PRINT ALL DATA OCTAL 


ee ee 


CZDRLDO=DR11 GEN NPR INTFC 
STORAGE LOCATIONS 


002414 


002416 
002456 


PUP PAA AA AAAI ITI IIT 
eC banaue 

oS 

So 

ine) 

wi 

Nm 

So 


WAG 
UNIS SONAR WN OOO NAME WN SO 
[=] 
So 
~m 
wi 
Nm 
Oo 


3 

3 

3 

3 

3 

3 

3 

3 

3 

; 251 
3 002522 
H 00252 
3 002530 
3 002532 
3 002534 
3 

3 

35 

3531 002536 
3532 002540 
3533 002542 
3534 002544 
3535 002546 
3536 002550 
3537 002552 
3538 002554 
3539 002556 
3540 

$24) 002560 
35 


542 002562 
43 


002564 
3544 002566 
3545 002570 
3546 


3547 002572 


000000 


000000 


000000 


000000 


000000 
000000 


000000 
000000 


000000 
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-SBTTL STORAGE LOCATIONS 


+ RARER RERRERARARARAREEEAERAERAEEARAAAARAAEAAAARARARERAEREREREREEE 


STORAGE LOCATIONS 


FFARR AAAAARAAAAEAAAREEEREEATEERAERERERAARARERARARERRARAAREEREEREEE 


Sete Gee 


QTYBRD: .WwORD 0 sTOTAL # DR11 BOARDS BEING TESTED (DEFAULT = 0) 
REGADR: .BLKW 16. ; TOTAL: 16 LOCATIONS FOR BOARD ADDRESSES 
VECADR: .BLKW 16. ; TOTAL: 16 LOCATIONS FOR VECTOR ADDRESSES 


REGISTER AND VECTOR ADDRESS STORAGE LOCATIONS FOR THE DR11 UNDER 


SRE REAAAAEAAAERAAREARAARAERAERAEEAREAEREAERREEAEE 


:DO NOT INSERT ANY ITEMS BETWEEN ANY OF THE LOCATIONS BELOW 


REAR AEAAREEAARAREKREAEAERERAAARARAERAARARERAARERERAAERAAKRARAEEAEEE 


wCR: -WORD 0 
BAR: -WORD 0 
CSR: -WORD 0 
BDR: -WORD 0 
DRINV: .WORD 0 
RVS: ~ WORD 0 
SDRINV: .WORD 0 
SDRVS: .WORD 0 


© RRA AEEKEAEEAAEAERARAERERARERAEAAAEAARARERERERAAAREEEEEE 


[D0 NOT INSERT ANY ITEMS BETWEEN ANY OF THE LOCATIONS ABOVE 


LRA EEREAEREREEEAEARARRRAEEREAREERARRRRRERRE REED 


BUT: WORD 0 ;BIT(S) UNDER TEST LOCATION 

LEVEL: :WORD 0 :BR LEVEL LOCATION 

BDVECT: [WORD 0 

DEVMSK: [WORD 0 

TABINX: [WORD 0 

DREG: WORD 0 

DRLEV: :WORD 0 

NXTTST: [WORD 0 

PASCNT: :WORD 0 

RCSR: .WORD 0 CSR ACTUALLY READ FROM DEVICE UNDER TEST 
REIR: :WORD 0 ZEIR ACTUALLY READ FROM DEVICE UNDER TEST 
RBDR: :WORD 0 :BDR ACTUALLY READ FROM DEVICE UNDER TEST 
RBAR: WORD 0 ZBAR ACTUALLY READ FROM DEVICE UNDER TEST 
RWCR: WORD 0 :WCR ACTUALLY READ FROM DEVICE UNDER TEST 
ECSR: .WORD 0 CSR EXPECTED 

EEIR:  :WORD 0 ZEIR EXPECTED 

EBDR: <:WORD 0 :BDR EXPECTED 

EBAR: WORD 0 :BAR EXPECTED 

EWCR: WORD 0 ZWCR EXPECTED 

ENPR1: WORD 0 ZEXPECTED OF NPR1 

ANPR1: <WORD NPR1  § :ADDRESS OF NPR1 

BORW:  :WORD 0 

NPR1: WORD 52525 

DIOMEM: :WORD 173000 * 
INBUF: WORD —XINBUF | , 

CHKBUF: :WORD  XCHKBU 

BUFLEN: WORD 


TEST 


SEQUENCE 


52 
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CZDRLDO-DR11_ GEN NPR INTFC 
STORAGE LOCATIONS 


560 002624 000000 LENCHK: .WORD 0 
561 002626 000000 WAIT: .WORD Q 
0026 900000 WCLEN: .WORD 0 
563 092632 RDYCHK: .WORD 0 
002634 177560 TKS: «WORD 177560 

3565 002636 177562 TKB: «WORD 177562 

3566 002640 177 TPS: «WORD 177564 

567 002642 177566 TPB: -WORD 177566 

568 002644 MSG: -WORD 0 

3569 002646 000000 ADDR: .WORD 0 

570 002650 000000 MESSAG: .WORD 0 

571 002652 000000 FLAG: .WORD 0 

572 002654 00C000 FNCCNT: .WORD 0 

3573 002656 INBUF1: .WORD 0 

3574 002660 000000 TIME: .WORD 0 GENERAL PURPOSE TIMER 

3575 002 LOOP: .WORD 0 GENERAL PURPOSE LOOP COUNTER 

3576 002664 000000 SWER: .WORD 0 
3577 002666 000000 BDFAIL: .WORD 0 

3578 002670 000000 SIZ: .WORD 0 

3579 002672 OLDPC1: .WORD 0 seer TO STORE RETURN PC IN SUBROUTINES WITH ERROR CALLS 
3580 0026 OLDPS1: .WORD 0 LOCATION TO STORE PS 

3581 002676 000000 OLDPC2: .WORD 0 SLOCATION TO STORE RETURN PC IN SUBROUTINES WITH ERROR CALLS 
3582 002700 000000 OLDPS2: .WORD 0 LOCATION TO STORE PS 

3583 002702 000000 FL: WORD 0 :FIRST CHAR FLAG 

3584 0027: LRGSIC: .WORD 0 ;LOCATION FOR LARGEST NUMBER CHARACTER FOR THE READ a appt dy 
3585 002706 000000 EOPLOC: .WORD 0 :LOCATION TO HOLD FLAG pee tiee IF EOP MSGS ARE TO BE PRINTED 
3586 002710 BITTST: .WORD 0 :LOCATION TO PUT THE BIT STATE TO PRINT = USED BY SUBROUTINE PSTATE 
3587 posrle MEMGMT: .WORD 0 LOCATION TO HOLD FLAG SAYING MEMORY MANAGEMENT IS AVAILABLE 
3588 002714 000000 ERRCNT: .WORD 0 LOCATION TO HOLD TOTAL ERRORS FOR A PARTICULAR TEST 

3589 003716 000000 SPASS2: .WORD 0 ;LOCATION TO HOLD OVERFLOW PASS NUMBER 


Racca se SSS Sst hs Sets SSS ei 


CZDRLDO-DR11 GEN NPR I 
DEVICE DESCRIPTOR WORD 


3601 002720 000000 


BIT DESCRIPTI 


¢. 5 
t ee 02-NOV-81 16:08 PAGE 62 


-SBTTL DEVICE DESCRIPTOR WORD BIT DESCRIPTION 


ITITITT ITIL t titi tiie iti iti tii it ei 


DESCRIPTION OF BITS IN THE DDW (DEVICE DESCRIPTOR WORD): 
BIT 0 DR11-w=0 DR11=8=1 

BIT 1 2 cycLe=0, N CYCLE=1 

BIT CABLE DOESN'T EXisT=0, CABLE DOES EXIST=1 


\ 
BIT Py BR PRIORITY 


SEQUENCE 54 


-WORD 0 ;LOCATION FOR STORAGE OF THE DEVICE DESCRIPTOR WORD 





rie GEN NPR INTFC 
SUBROUT I 


MACRO M1113. 02-NOV-81 is: 08 PAGE 83 


— ee 


5 
SEQUENCE 


TO INPUT A CHARACTER OR UP TO A 6 DIGIT NUMBER 


3607 


3 


& 
~m SOMNAnRWrw=OSs 


viplalatululytntytaisiss 


30 64 
3631 002770 


sees 


setae 
DONAWUSWNH—0O0O 


032555 
032555 
032555 
002664 
000003 
037175 
000033 
037064 
002664 
037173 
000057 
002704 


002664 
000060 


000071 
000007 
000015 


000002 
001405 


002664 


002664 


002664 


037173 


002664 
002664 


002704 


002664 


-SBTTL SUBROUTINE TO INPUT A CHARACTER OR UP TO A 6 DIGIT NUMBER 


SREREREEEKAEREEEAEEEEREEEEREEAAAEEAERERAERAEEREREEERREEREEREEEEEEE 


ee e@e Ge 
ms: Pere a a a a a a ae ee ee 


P 
ed 


1$: 
2s: 


3$: 


4$: 


5$: 


6$: 


THIS SUBROUTINE IS USED IN THE EDIT ROUTINE TO INPUT NUMBERS AND A 
SINGLE CHARACTER. R3 IS TO BE LOADED WITH THE tie OF DIGITS 


EXPECTED. THIS SUBROUTINE WILL EXIT IF CHARACTER IS 
INPUTED, LEAVING THE C CTER IN LOCATION ‘ANSWER’ A NUMERIC 
CHARACTER IS INPUTED, IT WILL CLEAR ALL BUT THE 1ST 4 BITS EXPOSING 
THE VALUE OF THE DIGI AND ADD IT TO R4 ICH WAS CLEARED 
AT_THE BEGINING OF THIS NE. LOCATION ‘LAGSTC’ IS TO BE LOADED 
WITH THE GEST II_ CHARACTER ACCEPTABLE F - 1.€. 7 

9 (FOR OCTAL_OR DECI INPUT gg at IT WILL Y ACCEP 
THE NUMBER DIGIT EQUAL T ST GIT. IT WILL ONLY ACCEPT 


O OR LESS THAN THIS DI I 
THE MAXIMUM NUMBER OF wd was nae BY eae PRINTING A <CRLF> WHEN 
THAT LIMIT IS REACHED. IF A <CR> IS INPUTED BEFORE THE MAXIMUM IS 
REACHED, ROUTINE EXITS LEAVING THE INPUTED NUMBER IN R4. 


hoagie “9 eae” ~ apace iatmeaitcead re et ete teint oh ae 


CLR R4 : CLEAR Wy CHARACTER RECEIVER 

TSTB CHARCT ;SEE IF A CHARACTER WAS INPUTED DURING PRINTING 
BEQ 1$ BRANCH TO INPUT A CHARACTE 

MOVB CHARCT,ANSWER ;MOVE THE CHARACTER TO THE ANSWER LOCATION 

CLRB CHARCT ;CLEAR THAT GUY 

BR GO CHECK IT OUT 

RDCHR 2GET AC 


HARACTER 
POP INPUTED CHARACTER OFF STACK 


MOV (SP)+, ANSWER : 
SEE IF A _“C WAS INPUTED 


CMP #CNTLC ANSWER 


BNE 3$ BRANCH AROUND ITS PRINTING IF NOT 
TYPE . CNTRLC svvPes "*e* 

BR $ :KICK OUT OF THIS ROUTINE 

CMP MESC ANSWER SEE IF AN <ESC> WAS INPUTED 

BNE é CH AROUND ITS PRINTING IF NOT 
TYPE . ESCAPE ZTYPE: '<ESC>" 

BR KICK OUT OF THIS ROUTINE 

MOVB ANSWER,LETNCR MOVE CHARACTER FOR PRINTING 

TYPE eLETNCR 260 7, THE INPUTED CHARACTER 

CMP 7 ANSWER 7SEE IF A NON-NUMERIC/ALPH CHARACTER WAS INPUTED 
BPL 5$ 7BRANCH TO R4 TEST IF 


LRGSTC,ANSWER ;SEE IF ° erie CHARACTER WAS INPUTED 


BM! 6$ BRANCH TO EXIT IF 

MOV ANSWER , = (SP) ;MOVE ASCII TO STACK FOR PREPARATION 
BIC #60, (SP) AR ALL BUT THE NUMBER INPUTED 
ASL R4 ; SHIFT R4 THREE PLACES 

ASL R4 210 MAKE ROOM FOR 

ASL R4 THIS CHARACTE 


R 
ADD (SP)+,R4 ADD THE OCTAL NUMBER 


55 


DEC R3 ;SUBTRACT 1 FROM THE LOOP” COUNTER 

BNE 1$ BRANCH BACK IF NOT ALL ae MINPUTED 

CMPB #'9, LRGSTC sSEE_ IF NUMBER IS TO BE DECIMA 

BNE 6$ BRANCH 

CMP #7 ,R4 7 SEE IF INPUTED NUMBER IS 7 OR LESS 

BPL 6$ CH IF SO 

CMP #CARETN, ANSWER SEE IF CARRIAGE RETURN WAS INPUTED 

BEQ 6$ ;BRANCH IF SO_- R4 IS CORRECT 

ADD #2,R4 sADD 2 TO R4 f0 MAKE OCTAL NUMBER THE DECIMAL EQUIVALENT 


$CRLF ‘PRINT A <CRLF> 
RTS PC TEXIT 


| 
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SUBROUTINE TO CAPTURE UNIT #, PASS # & TOTAL E 






3659 .SBTTL SUBROUTINE TO CAPTURE UNIT #, PASS # & TOTAL ERRORS 
eet 38  RRRRRERERERERRERERREREREREERERRRRREREREREEREREERERREREREREEEEREE 
1 te 
3662 ie THIS SUBROUTINE IS CALLED BY $EOP AND ENDEV TO SAVE THE UNIT NUMBER, 
3063 3* PASS NUMBER, AND TOTAL ERRORS FOR THAT DEVICE/PASS FOR SAVING WHENEVER 
366% * A DEVICE PASS” CONTAINS ERRORS. 
3088 'MARAAAAZASAALAALALALALLALAAALALELLLE LES E LES EE EE EERE TTT CT TP TT TS TF 
7 26 022737 047132 044650 ERCAPT: CMP MENDSTK,CAPNTR ;SEE IF STACK IS FULL OF BULL 
34 001414 BEQ 1$ KICK OUT IF FULL 
36 013700 044650 MOV CAPNTR,RO :MOVE CAPNTR CONTENTS TO RO 
42 013720 001422 MOV SUNIT, (RO) + [PUT UNIT NUMBER ON STACK 
46 013720 002716 MOV SPASS2,(RO)+  :PUT OVERFLOW PASS NUMBER ON STACK 
52 013720 001416 MOV SPASS, (RO) + [PUT PASS NUMBER ON STACK 
56 013720 001312 MOV fERTTL,(RO)+ | :PUT TOTAL ERRORS ON STACK 
3162 010037 044650 MOV RO, CAPNTR TRESTORE CAPNTR TC NEW POINTER VALUE 
66 000207 1$: RTS PC TEXIT 


Fe 5 
tie GEN NPR INTFC MACRO M1113 O2-NOV-81 16:08 PAGE 65 SEQUENCE 57 
SUBROUTINE TO FILL ALL TABLE BOARD ENTRIES 


3676 -SBTTL SUBROUTINE TO FILL ALL TABLE BOARD ENTRIES 

3677 FERRARA AERA AEA ERA REREREEEEERAAERERERREREEERARREERERERRREEEEE 

3678 :* 

3679 “ed THIS SUBROUTINE FILLS ALL TABLE BOARD ENTRIES FOR THE ADDRESSES AND 
3680 5° VECTORS FROM THE VALUES IN ‘REGADR’ AND 'VECADR*, AND SHOULD BE SET 
3681 ‘* UP BEFORE ENTERING THIS SUBROUTINE. 

3683 TITIIITI TIT ITITi Titi Tit titiiiiitiiiiititiiiiiiiiiiti titi ti tit i 

3684 003170 005037 001466 FIXTBL: CLR SDEVM sce THE vt MASK 

3685 003174 000261 SEC SET THE CARRY BIT AND 

3686 003176 006137 001466 ROL SDEVM ROTATE IT INTO SDEVM FOR u Pes 

3687 003202 022737 000001 002414 CMP #1,QTYBRD :SEE IF ONLY 1 BOARD PRESEN 

3688 003210 001433 BEG 2s ah ef IF SO - TABLE DOESN’ T as FILLING 
3689 003212 013701 002414 MOV QTYBRD,R1 FILL ALL TABLE BOARD ENTRIES FROM FIRST 

3690 003216 005301 DEC R1 ;DECREMENT SINCE 1ST POSITION IS ALREADY FILLED 
3691 003220 005002 CLR R2 CLEAR INDEX TO SEND POINTER 

3692 003222 012793 000002 MOV #2,R3 sPUT 2 IN INDEX TO RECEIVE POINTER 

3693 003226 000261 1$: SEC 7SET THE CARRY BIT AND 

3694 003230 906137 001466 ROL SDEVM ;ROTATE IT INTO SDEVM 

3695 002416 A=REGADR ;REDEFINE REGADR AS RA FOR SPACE REASONS 

3696 0032 016263 002416 002416 MOV RA(R2) ,RACR3) dg ADDRESS TO NEXT POSITION AND 

3697 003242 062763 000010 002416 ADD #10,RACR3) D 10 FOR NEXT POSITION 

3698 002456 A=VECADR REDEFINE V VECADR AS_VA FOR SPACE REASONS 

3699 003250 016263 002456 002456 MOV VA(R2),VA(R3) ; TRANSFER VECTOR TO NEXT POSITION AND 

3700 003256 062763 000010 002456 ADD #10, VA(R3) zADD 10 FOR NEXT POSITION 

3701 003264 013763 001474 001474 MOV SDDWO,SDDWO(R3) :MOVE DEVICE DESCRIPTOR WORD TO NEXT POSITION 
3702 003272 022223 CMP (R2)+,(R3)+ UPDATE INDEX POINTERS 

3703 003274 005301 DEC R1 ;DECREMENT THE LOOP COUNTER 

3704 003276 001353 BNE 1$ BRANCH BACK IF NOT DONE 


3705 003300 000207 2$: RTS PC sEXIT 


mR ne 


Le 
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SUBROUTINE TO LOAD INBUF WITH AN INCREMENTING PATTERN 


Ma} -SBTTL SUBROUTINE TO LOAD INBUF WITH AN INCREMENTING PATTERN 


370s POOP iittiiiiittiistie tir isiiiiiiitiiiieiiiitiiitiiiiiiiitii iy! 

:* 
709 :* THIS SUBROUTINE CLEARS THE FIRST LOCATION OF THE BUFFER AND LOADS 
319 3* NUMBERS STARTING WITH 1 INTO THE BUFFER. 

® 

371 IT TITITITITITITITITI TIT I TTT Tit tititi iii iiiiiiiti tii T tit it 
3713 003302 013702 002616 LODBUF: MOV INBUF ,R2 sMOVE STARTING soorass OF INBUF TO R2 
3714 003306 013703 002622 MOV BUFLEN,R3 ;MOVE LOOP COUNTER R3 
3715 003312 005203 INC R3 ZCORRECT COUNT 
3716 003314 005001 CLR R1 CLEAR T 7 ue COUNTER 
3717 003316 010122 18: MOV R1,(R2)+ [LOAD NEXT BUFFER WORD 
3718 003320 005201 INC R1 z INCREMENT THE LOADING COUNTER 
3719 003322 005303 DEC R3 :DECREMENT THE LOOP COUNTER AND 
3720 003324 001374 BNE 1$ sBRANCH BACK IF NOT DONE 
3721 003326 000207 RTS PC sEXIT 










5 
13 02-Nov-81 16:08 PAGE 67 SEQUENCE 59 


CZDRLDO-DR11 GEN NPR INTFC MACRO M1 
SUBROUT I STARTING WITH 0 


1 
INE TO LOAD THE CHKBUF WITH EVEN # 


33 ~SBTTL SUBROUTINE TO LOAD THE CHKBUF WITH EVEN #°S STARTING WITH 0 
72 PETTITT PTI TTT itt i iti t itil iiti iti iiii iii) 
724 :* 
3725 * THIS SUBROUTINE CLEARS THE FIRST LOCATION OF THE BUFFER AND LOADS 
358 i* EVEN NUMBERS STARTING WITH 0 INTO THE BUFFER. 
** 
3728 Ce agian ee Er! ancien nee nn nar nee 
3/6) 003330 013702 002620 CHKBFF: MOV CHKBUF ,R2 STARTING ADDRESS OF CHECK-BUFFER TO R2 
3730 003334 013701 002622 MOV hae *R1 MOVE LOOP COUNTER TO R1 
3731 003340 005003 CLR WIPE Mi R3 
732 003342 010322 1$: MOV R3,(R2)+ sMOVE R3 TO CHKBUF ADDRESS AND INC ¥ af es 
3733 003344 010322 MOV R3,(R2)+ sMOVE R3 TO NEXT CHKBUF ADDRESS AND I Y2 
3734 003346 022341 CMP tas, -(R1) z;ADD 2 TO NUMBER FOR BUFFER & SUBTRACT ‘8 FROM LOOP COUNTER 
3 005701 TST SEE IF R1 te | REACHED ZERO YET 
3 001373 BNE ° ‘BRANCH BACK IF NOT DONE 
000207 PC EXIT 





CZDRLDO-DR11 GEN NPR_INTFC 
SUBROUT 


a 
MACRO M1113 ge MH 08 PAGE 68 


INE TO CLEAR IE, CHECK ERROR, READY, WCR=0, 


3749 

3750 003356 

3751 003364 

3752 003370 

3753 003374 
5 3400 


3773 003524 


06 
000207 


000100 


010000 
000004 


177064 


177022 
002560 
002566 
000002 


177136 


002560 
002560 


002720 
002566 
002572 


002570 
002572 
002600 


Zs ee RRR eR BE 


= 
> 


wee Be Be Be Be Ge Se Ge Se Be Se 


1$: 


2$: 






SEQUENCE 60 


-SBTTL SUBROUTINE TO CLEAR IE, CHECK ERROR, READY, WCR=0, AND BAR 


-RRRReReReRRERARRERERERERERERHEREEREERERRR REE ARARERERRRREREERER 


THIS SUBROUTINE HAS THE NEED TO CALL 
IS TO BE LOCATED IN THE TEST JUST AFTER THE JSR CALL. 


AN ERROR IN THE TEST. THE ERROR 
FUTURE USE OF 


THIS SUBROUTINE MUST BE HAND!.ED AS FOLLOWS: 


JSR PC, INTA 
ERROR +5 


CONT INUE 


BUFLEN, »Re 
INBUF ,R2 
aCSR.RCSR 
#MA,RCSR 


#81T2,DDW 
1$ 


R2 
@BAR ,ABAR 
EW 


aWCR RWCR 
RCSR,ECSR 
2s 
RBAR , EBAR 
#2, (SP) 
PC 


sSUBROUTINE CALL 


ALL 
SUBROUTINE RETURNS HERE IF NO ERROR 


ee 


sCLEAR_IE 

;BUFFER LENGTH TO R2 
;NUMBER OF XFERS TIMES 2 
; CORRECT 


;MOVE RECEIVED DATA TO RCSR 
SEE IF WE ARE IN MAINTENANCE MODE 
BRANCH AROUND CABLE TEST IF WE ARE, BIT O WILL BE CLEAR 
2 SEE IF ge IS A_CABLE 
CH IF NO CABLE 
CABLE MODE i hh es, cea 0 OF BAR SET. CHECK ODD ADRS 


: EXPECTED AT 
sMOVE EXPECTED DATA TO ECSR 
: SURE ERROR BIT IS CLEAR 


7 MAK 
;MOVE RECEIVED DATA TO RWCR 

CH TO URN WITHOUT UPDATING PC SO ERROR WILL CALL 
DOES CSR C WHAT IT 


ONTAIN L 
:BRAN CH TO RETURN WITHOUT UPDATING PC SO ERROR WILL CALL 
DOES BAR CONTAIN WHAT IT SHOULD 
{BRAN CH TO RETURN WITHOUT UPDATING PC SO ERROR WIL! CALL 
Sy PC RETURN TO AFTER THE ERROR CALL 


CZDRLDO-DR11 GEN NPR_INTFC 
SUBROUTINE TO CHECK INBUF AFTER A MAINTENANCE MODE OPERATI 


ama Qo 2 ON) 


001362 


002624 


001362 


000002 
002624 


001362 
000006 
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001364 


001370 
001366 


001372 
002622 





SEQUENCE 61 
.SBTTL SUBROUTINE TO CHECK INBUF AFTER A MAINTENANCE MODE OPERATION 
FF RARER RARER AAEEEEEEEEEEAAAEEEEREREREREREEEEREEREAEREEEREKEE 
3* 
ie THIS SUBROUTINE HAS THE NEED TO 0 CALL AN ERROR IN THE TEST AND RETURN ‘ 
ie TO THE SUBROUTINE. THE ERROR AND RETURN JSR ARE TO BE LOCATED IN THE 
* TEST JUST AFTER THE JSR CALL. YOU *MUST* CLEAR LOCATION "ERRC 
* BEFORE EXECUTION OF THIS SUBROUTINE, OTHERWISE YOU MAY NOT GET ANY 
:* E INTED, OR IF SO, JUST THE DATA WITHOUT THE HEADER. FUTURE 
* USE OF THIS SUBROUTINE MUST BE HANDLED AS FOLLOWS: 
38 
* JSR PC, DATCHK : SUBROUTINE CALL 
* ERROR +201 TERROR CALL 
* JSR PC ,DATCK2 SRETURN TO SUBROUTINE AFTER ERROR RTS 
:* CONT NUE ‘SUBROUTINE RETURNS HERE IF NO ERROR(S) OR WHEN DONE 
3* 
J FRA REAEREEAERERRREEEEERERERREEEEERERERERERERERERERREEEERKEEKREEE 
DATCHK: MOV (SP) ,$TMP1 :SAVE PC RETURN 
MOV CHKBUF ,R2 ‘STARTING ADDRESS OF CHECK BUFFER TO R2 
MOV INBUF ,R3 ‘STARTING ADDRESS OF IN BUFFER TO R3 
CLR LENCHK SCLEAR LENGTH C CHECK 
DATCH1: INC : A COMPARISON 
CMP Leese (R3)+ ‘IS THE DATA CORRECT? 
BEQ DATCH2 [BRANCH IF 
MOV STMP1, (SP) SRESTORE OR) GINAL PC RETURN 
MOV -2(R2),$TMP2 | :MOVE CHECK BUFFER CONTENTS TO 3TMP2 
MOV R2,$TMP4 [MOVE ADDRESS +2 TO $TMP4 
SUB #2. $TMP4 SCORRECT SO IT POINTS TO ADDRESS CAUSING ERROR 
MOV -2(R3),$TMP3 :MOVE INPUT BUFFER CONTENTS TO $TMP3 
MOV R3,$TMP5S [MOVE ADDRESS +2 TO $TMP5 
SUB #2.$TMP5 [CORRECT SO IT SOINTS TO ADDRESS CAUSING ERROR 
BR DATCHX SRETURN TO ERROR CALL = PC ON STACK ALREADY POINTS THERE 
DATCH2: CMP LENCHK,BUFLEN :SEE IF THE BUFFER HAS BEEN CHECKED 
BNE DATCH1 :GO BACK FOR ANOTHER TRY IF NOT 
MOV STMP1, (SP) SRESTORE PC RETURN 
ADD #6, (SP) ‘CORRECT IT SO RETURN IS AFTER THE ERROR CALL 
DATCHX: RTS PC RETURN 


| 5 
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SUBROUTINE TO RESTORE DR11 INT VECT & SET CPU PRIORITY TO 
| -SBTTL SUBROUTINE TO RESTORE DR1i INT VECT & SET CPU PRIORITY TO 7. 


& 
oO 


15 33 REAR ARERAERERARAAAEAREAERAEREEAAAEAAERARERAAEEAERERAREAEREAKAREREEEE 
1 3* 
3813 3* THIS ROUTINE IS USED IN VARIOUS TESTS TO CLEAR ANY DATA THAT 
aie 3* MAY BE LEFT IN ANY REGISTERS, AND RESTORE CPU PRIORITY TO 7. 
& 
3816 +: 5 REREAAERERRARERAEAEAEEEEEAERAERAEEAAEARAEKERAERAEREEKEKREREREREERKEE 
3817 003646 012737 000340 177776 CLENUP: MOV #LEVEL7,PSW it CPU TO PRIORITY LEVEL 7 
3818 003654 012777 010000 176640 MOV WMA, aCSR ; DO AN INIT CLEARING WCR, BAR & BDR BY SETTING 
3819 003662 005077 176634 CLR acsR AND CLEARING THE MAINT BIT AND CLEAR THE CSR 
3820 003666 000207 RTS PC TEXIT 
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SUBROUTINE TO CHECK FOR CABLE MODE AND ALTER EXPECTED DATA 


21 ~SBTTL SUBROUTINE TO CHECK FOR CABLE MODE AND ALTER EXPECTED DATA 
$556 pnt eaten aetna at ae aks nen eat. 
3824 ie THIS SUBROUTINE CHECKS THE DDW or DESCRIPTOR WORD) FOR THE CABLE 
3825 7* BEING IN OR OUT AND SETS BIT : 12, 10, 8 AND 6 IN THE EXPECTED DATA 
3559 :* LOCATION IF THE CABLE IS OUT 

+t 

3828 RAE OEE DOS: NB En > A cI 
3829 003670 032737 000004 002720 CHKCAB: BIT #B1T2,0DW CHECK FOR CABLE STATUS 
3830 003676 001006 BNE 1 SEXIT IF CABLE DOES EXIST 
3831 003700 052737 127000 002572 BIS #127000,ECSR 7SET BITS 12, 10, 8. 7 & 6 - CABLE DOESN'T EXIST 
3832 003706 052737 127000 002536 BIS A ade BUT eaet BITS 12, 10, 8, 7 & 6 IN BITS UNDER TEST LOCATION TOO 
3833 003714 000207 1$: RTS ; RETURN 


- _ - _— - — —— — 
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_ SUBROUTINE TO CHECK CORRECT DATA PATTERN WAS MOVED TO | 


3834 .SBTTL SUBROUTINE TO CHECK CORRECT DATA PATTERN WAS MOVED TO INBUF 
3835 3 ; RRA AAAAAARAAREAEAAEEAERAAARARARAARARRARAREARAARAREARAEREREEE 
3836 tf 
3837 te THIS SUBROUTINE HAS THE NEED TO CALL 2 ERRORS. THE ERRORS ARE TO BE 
3838 7* LOCATED IN THE TEST JUST AFTER THE JSR CALL. FUTURE USE OF THIS 
3839 :* SUBROUTINE MUST BE HANDLED AS FOLLOWS: 
** 
3841 :* JSR PC ,DATOCK ;SUBROUTINE CALL 
3842 .* ERROR +46 ERROR CALL 
3843 3;* JSR PC,DATOC2 RETURN TO SUBROUTINE AFTER ERROR RTS 
3844 3* ERROR +67 :2ND ERROR CAL 
3845 ie CONT INUE + SUBROUT INE RETURNS HERE WHEN DONE 
*® 
3847 PPETISTITITITITITITITITIIITITITITITITITITITITITIT ITIL TTT TTT Titi ie 
3848 003716 011637 001362 DATOCK: MOV (SP) ,STMP1 ;SAVE PC RETURN 
—-- 3849 003722 012702 052525 MOV #52525,,R2 [DATO NUMBER TO R2 
3850 003726 013703 002616 MOV INBUF ,R3 sSTARTING ADDRESS OF IN BUFFER TO R3 
3851 003732 005037 002624 CLR LENCHK ;CLEAR LENGTH CHECK 
3852 003736 005237 002624 DATOC1: INC LENCHK A COMPARISON 
| —- 3853 003742 + 020223 CMP R2, (R3)+ SIS THE DATA CORRECT? 
3854 003744 001415 BEQ DATOC2 * BRANCH IF OK 
3855 003746 013716 001362 MOV STMP1, (SP) sMOVE OLD PC RETURN TC STACK 
3856 003752 010237 001364 MOV R2,$TMP2 [MOVE EXPECTED DATA TO $TMP2 
3857 003756 016337 177776 001366 MOV -2(R3) ,STMP3 “MOVE RECEIVED DATA TO $TMP3 
0037 010337 001370 MOV R3,STMP4 sMOVE ADDRESS +2 TO STMP4 
3859 003770 162737 000002 001370 SUB #2, $TMP4 : CORRECT ADDRESS a IT POINTS TO ADDRESS CAUSING ERROR 
003776 000431 BR DATOCX RETURN TO ERROR CAL 
3861 004000 023737 002624 002622 DATOC2: CMP LENCHK ,BUFLEN sSEE IF THE BUFFER HAS BEEN CHECKED 
3862 004006 001353 BNE DATCC? [BUFFER CHECKED? 
3863 006010 020223 CMP R2, (R3)+ [CHECK END OF BUFFER + 1 
3864 004012 001017 « BNE 1$ [BRANCH IF NOT LOADED 
3865 004014 010237 001364 MOV R2,$TMP2 *MOVE EXPECTED DATA TO $TMP2 
3866 004020 016337 177776 001366 MOV -2(R3) ,STMP3 “MOVE RECEIVED DATA 1m . ide, 
3867 004026 010337 001370 MOV R3,$TMP4 [MOVE ADDRESS +2 TO $ 
3868 004032 162737 000002 001370 SuB #2,3TMP4 sCORRECT ADDRESS SO T POINTS TO ADDRESS CAUSING ERROR 
3869 004040 013716 001362 MOV STMP1, (SP) * CORRECT PC RETURN 
3870 004044 062716 000006 ADD #6, (SP) *POINT TO 2ND ERROR CALL AFTER JSR PC. DATOCK 
3871 004050 000404 BR DATOCX sRETURN TO ERROR CALL 
3872 004052 013716 001362 1$: MOV STMP1, (SP) SRESTORE RETURN ADDRESS 
3873 004056 062716 000010 ADD #10, (SP) *POINT TO PROPER RETURN AFTER THE ERROR CALLS 
3874 004062 000207 DATOCX: RTS PC sEXIT 
| 


---- -- -—--— - --  -— - - - - _ —— ——— 
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SUBROUTINE TO CLEAR IE AND HALT IF ERROR IS SET 


3875 .SBTTL SUBROUTINE TO CLEAR IE AND HALT IF ERROR IS SET 
3876 FURR AREA AAAEAAAAARERAAEEAEAAAEAERAAAAAAEAAAAARARAREEERAERERE EE 
j 3877 3* 
| 3878 ie THIS SUBROUTINE HAS THE NEED TO CALL AN ERROR IN THE TEST. THE ERROR 
3879 3* 1S TO BE LOCATED IN THE TEST JUST AFTER THE JSR CALL. FUTURE USE OF 
| 3880 3° THIS SUBROUTINE musT BE HANDLED AS FOLLOWS: 
| —- 3g) * JSR RRCHK ;SUBROUTI NE Cate 
3882 ie ERROR rs Th TERROR CAL 
3583 :* CONT INUE ‘SUBROUTINE RETURNS HERE IF NO ERROR 
*® 
8 RARAEEAAAETAARARAAEARAAREAAARETAERAAAARAAERAARARARARARAAARARAAAAEAREEEEE 
3886 004064 042777 000100 176430 ERRCHK: BIC #IE,acsR ZCLEAR IE 
3887 004072 017737 176424 002560 MOV acSR,RCSR “MOVE RECEIVED DATA TO RCSR 
3888 004100 013737 002560 002572 MOV RCSR,ECSR [MOVE EXPECTED DATA TO ECSR 
3889 004106 042737 100000 002572 BIC #ER,ECSR [CLEAR THE ERROR BIT 
3890 004114 052737 000200 002572 BIS #RYECSR ‘SET THE READY BIT 
3891 004122 013701 002560 MOV RCSR,R1 :MOVE DATA TO R1 FOR CHECKING 
3§92 004126 012737 000200 001360 MOV ary, $TMPO *MOVE EXPECTED DATA TO $TMPO 
3893 004134 042701 677577 BIC #77577,R1 SCLEAR ALL BUT THE ERROR AND READY BITS 
3894 004140 022701 000200 CMP #RY,R1 SEE IF ERROR BIT IS CLEAR AND READY IS SET 
3895 004144 001002 BNE 1$ “BRANCH AROUND PC gat ty + SO ERROR WILL CALL 
3896 004146 062716 000002 ADD #2, (SP) s CORRECT PC RETURN - DATA OK 
3897 004152 000207 1$: RTS PC TEXIT 


Tees ke RD a RE es 2 TSE ee Ee PY ae = ree ae le 


98 

99 

900 
3901 
3902 
3903 
3904 
3905 004154 
3906 004160 
3907 004164 
3908 004166 
3909 004170 
3910 004172 
3911 004174 
3912 004176 
3913 004202 
3914 004204 
3915 004206 
3916 004210 
3917 004212 
3918 004214 
3919 
3920 004216 
3921 004224 
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MSW 


Roose ooeoe 

yee we 
NEN 
SNS 


oo — 


> BPT' L 


-SBTTL SUBROUTINE TO RESET THE °*.+2°' AND 
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*BPT’’ LOCATIONS 


ee eRReRRRRRRRERReRAeRERRRARRAREHReKeKeeReReReteeneeeneeeenere 


i 

Ts 

tf 

i* 
004216 BPINIT 
000003 

1$: 

2$: 
000003 


000014 000050 BPTINT: 


000254 001000 


THIS SUBR 


BETWEEN 4-776. 


. WORD 
. WORD 


tt eal RO 


4,14,50 
174,254, 1000 


TINE LOADS *'.+2°* AND 


“BPT’’ INTO ALL UNUSED LOCATIONS 


SREREAAEAAREEEAAAAEEAREAEEERERAEAERAARARARAAAAAERAERAEEAARAERRAREREEEE 


sPOINT RO TO TABLE OF BPT INIT LOCATIONS 
3D0 3 SETS OF ‘'.+2°" AND ‘BPT’’ SETUPS 
MOVE START ADDRESS TO_R2 


: ESS TO R4& 
3 INC REMENT R4 To PRODUCE THE “ see" NUMBER 
mov NUMBER 


O THE LOCAT 
eer TO THE NEXT LOCATION 
ADD eT 


SEQUENCE 


sSEE IF "Ue RAVE DONE ALL FOR THIS LOCATION 


BRANCH -K_ FOR ANOTHER TRANSFER IF NOT 
sDECREMENT R1 
:BRANCH BACK IF 3 GROUPS NOT DONE 


sADDRESSES USED TO PUT ‘*.+2°* & *BPT*’ BACK 


66 
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SUBROUTINE TO EXTRACT INFORMATION ABOUT THE D 


92 .SBTTL SUBROUTINE TO EXTRACT INFORMATION ABOUT THE DR11 
92 z's RERAAAAAAAKRERAERERERAAAAEAAREREAAAARARAAAAAAARARAAAERAERERERAEEEEE 
3924 3* 
3925 it THIS SUBROUTINE EXTRACTS INFORMATION ABOUT THE DR11 THAT INTERRUPTED 
3926 * AND LOADS THE DATA FOUND INTO THE DEVICE DESCRIPTOR WORD FOR THAT 
3927 3* BOARD. (ADDED ” REV 'F'): ALSO DOES A MINI-TEST OF THE CSR TO MAKE 
3928 ie SURE BOAR DIS A DRI1, EXITING WITHA MODIFIED RETURN IF IT FAILS THIS 
3329 te MINI-TEST. 
*® 

3931 PPIIII IIIT IIIT TIititiiitiititiiiiiiiiititiiitiiiiit titi titi t 
3932 004232 012737 000340 002540 DRGET: MOV WLEVEL7,LEVEL ;MOVE PRIORITY 7 TO LEVEL 
3933 004240 012703 004732 MOV WLEVELS.R3 ‘MOVE ADDRESS OF PRIORITY LEVELS TO R3 
3934 004244 012704 000004 MOV #4 RG :D0 4 PRIORITY CHECKS 
3935 004250 012737 000400 002660 1S: MOV #400, TIME ‘SET UP WAIT LOOP COUNTER 
3936 004256 012710 010000 MOV WMA, (RO) ‘SET THE MAINTENANCE BIT AND 
3937 004262 005010 CLR (ROS ‘CLEAR TO DO AN INI 

004264 013737 000014 001362 MOV BPTV-T,STMP1 § :SAVE BPT TRAP VECTOR 
3939 004272 012737 004520 000014 MOV #9$,BPTVCT S INTERRUPTS TO 9$ 

0 004300 012337 177776 MOV (R35+,PSW :SET CPU PRIORITY TO NEXT LEVEL 

941 004 000240 NOP KILL A LITT 

004 012710 000105 MOV #1E+F2+G0, (RO) 3$ T IE, ENCTS WWD GO ATTEMPTING AN INTERRUPT 
3943 004312 005337 002660 2$: DEC TIME DECREMENT 
3944 004316 001375 BNE 2$ ‘BRANCH BACK tan ZERO 

5 004320 012737 000340 177776 MOV #LEVEL7,PSW SSET CPU PRIORITY BACK TO 7 

3946 004326 013737 001362 000014 MOV STMP1,BPTVCT | RESTORE BPT TRAP VECT 

004334 162737 000040 002540 SUB #40, LEVEL ‘PUT LOCATION LEVEL’ AT NEXT PRIORITY - INTERRUPT FAILED 
3948 004342 005304 DEC R4 [DECREMENT LOOP COUNTER 
3949 004344 001341 BNE 1$ [BRANCH BACK IF NOT ALL PRIORITY LEVELS CHECKED YET 
3950 as “KEERERRRRRRRERERREREREEERERRREAREEERERRERERREREREREERERRER ERE 
3951 : IF ROUTINE GETS HERE AND YOU ARE NOT IN A MANUFACTURING ENVIRONMENT 
3952 ; IT IS A DR11, YOU PROBABLY HAVE A BAD BOARD. PROMPTING USER FOR THE VECTOR 
3953 t WILL ALLOW ONE MORE OPORTUNITY TO CHECK THE DR11 WITHOUT HAVING TO GO INTO 
3954 > MANUAL MODE. IT IS EVEN *MORE* IMPORTANT FOR THE USER TO *MAKE*SURE® THE 
3955 : REST OF THE DATA (1.€. CABLE STATE, ETC. ) IS AS THE MODULE IS SET UP. 
3956 Lad RERRERRERRERREREERRERERERERRRERERRERERERERRERREEREEREERRERER ERE 
3957 004346 132737 000001 001430 3%$: BITB #BITO,SENV :SEE IF WE ARE UNDER APT :DPMO01 
3958 004354 001165 BNE 14$ ‘BRANCH OUT IF SO :DPMOO1 
3959 004356 032777 010000 174754 BIT #B81T12,aSWR t1S THIS A MANUFACTURING ENVIRONMENT? :DPMOO1 

004 001161 BNE 14$ :BRANCH IF SO = ASSUMED TO NOT BE A DR11:DPMOO1 
3961 004366 104401 004742 TYPE  ,ASK4VC ‘TYPE: ‘INPUT VECTOR ot =DPMOO1 
3962 004372 012703 000003 MOV #3,R3 SEXPECT 3 DIGITS :DPMOO1 
3963 004376 004737 002722 JSR PC.READ 60 READ VECT :DPMOO1 
3964 004402 020427 000300 CMP R4.#300 : F VECTOR IAPUYED IS BELOW 300 :DPMOO1 
3965 004406 100403 BMI 4 ‘BRANCH IF LE [DPMOO1 
3966 004410 022704 000774 CMP #774 ,R4 [SEE IF VECTOR 1S ABOVE 774 = DPMOO1 
3967 004414 100003 BPL 5$ [BRANCH IF NOT TO LOAD :DPMOO1 

004416 104401 004762 4$: TYPE OUTORG :TYPE: VECTOR OUT OF. 300776 RANGE" =DPMOO1 
3969 004422 000751 BR S$ ‘BRANCH BALK FOR ANOTHER TRY =DPMOO1 
3970 004424 032704 000003 5$: BIT #3.R4 ERAKE SURE BITS 0.6 1 ARE CLEAR :DPMOO1 
3971 004430 001403 BEQ 55$ ‘BRANCH = DPMOO1 
3972 004432 104401 005017 TYPE NOTVEC TYPE: VECTOR IS NOT A MULTIPLE OF 4° :DPMO01 
3973 004436 000743 BR S$ ‘BRANCH BACK FOR ANOTHER :DPMO01 
3974 004440 010412 55$: MOV R4, (R2) [MOVE INPUTED VECTOR TO LOCATION :DPMOO1 
3975 004442 104401 005056 6$: TYPE  ,ASK4PR :TYPE: ‘INPUT BOARD BR PRIORITY’ [DPMOO1 
3976 004446 012703 000001 MOV #1,R3 SEXPECT 1 DIGIT :DPMOO1 
3977 004452 004737 002722 JSR PC READ *GO GET PRIORITY [DPMOO1 
3978 004456 022704 000003 CMP #3,R4 ‘SEE IF INPUT IS BELOW 4 :DPMOO1 





CZDRLDO-DR11 GEN _NPR_INTFC MACRO M1113 R  » pacats 16:08 PAGE Ose4 SEQUENCE 68 
SUBROUTINE TO EXTRACT INFORMATION ABOUT THE D 


3979 004462 100003 BPL 7$ ;BRANCH IF SO TO TELL USER IT IS WRONG ;DPMOO1 
3980 004464 020427 000007 CMP R447 ‘SEE IF INPUT IS ABOVE 7 :DPMOO1 
3981 004470 10040 BMI ZBRANCH TO LOAD DATA IF OK = DPMOO1 
3982 004472 104401 005107 7$: TYPE PROUT :TYPE: "PRIORITY OUT OF 4-7 RANGE‘ :DPMO01 
3983 004476 000761 BR é ‘BRANCH BACK TO TRY AGAIN ‘vPMO01 
3984 006304 8$: ASL R4 :SHIFT LEVEL OVER 5 PLACES :DPMOO1 
3985 004502 006304 ASL R4 : ‘DPMOO1 
504 006304 ASL R4 ; :DPMOO1 
987 004506 006304 ASL R4 ; :DPMOO1 
3988 004510 006304 ASL R4 : *DPMOO1 
3989 004512 010437 002540 MOV R4, LEVEL [PUT PRI LEVEL INTO THE LEVEL LOCATION :DPMO01 
3990 004516 000410 BR ‘BRANCH OVER DR11 INTER RRUP T HANDLER :DPMOO1 
3991 004520 012737 000340 177776 9$: MOV #LEVEL7,PSW :SET CPU PRIORITY BACK 10 7 
3992 004526 011612 MOV (SP), (R2) MOVE VECTOR+4 TO VECTOR. LOCATION :DPMO01 
3993 004530 162712 000004 SUB #4, (R2) :VECT OR IS WRONG = CORRECT IT 
3994 004534 062706 000010 ADD #10,SP [CLEAN STACK :DPMO01 
3995 004540 013711 002540 10$: MOV LEVEL, (R1) ZSTORE THE OBTAINED PRIORITY LEVEL :DPMOO1 
3996 004544 013737 001362 000014 MOV $TMP1.BPTVCT | :RESTORE BPT TRAP VECTOR 
3997 004552 000261 SEC [SET THE CARRY BIT FOR THE ‘ROL’ :DPMO01 
3998 004554 006137 001466 ROL SDEVM SINDICATE DEVICE EXISTENCE IN DEVICE MAP’ 
004560 005237 002414 INC QTYBRD s INCREMENT DEVICE COUNT 
4000 004564 052710 100000 BIS #EIR, (RO) :GO0 TO EIR TO GET B/W STATE 
4001 004570 011037 002562 MOV (RO) ,REIR ;MOV E EIR TO REIR 
4002 004574 005010 CLR (RO) BACK TO C 
4003 004576 012710 010000 MOV #MA, (RO) <SET THE MAINT BIT 
004602 005010 CLR R :D0 AN INIT 
4005 004604 032737 000001 002562 BIT #BITO,REIR ‘TEST FOR Bu STATE 
4006 004612 001003 BNE 11 ‘BRANCH IF A W 
4007 064614 052711 000001 BIS #BI1T0, (R1) ‘SET STATE IN DEVICE DESCRIPTOR WORD 
4008 004620 000406 BR 12$ :G0 TO CABLE STATUS TEST 
4009 004622 032737 000400 002562 11$: BIT #N2,REIR [CHECK 2/N CYCLE STATE 
4010 004630 001402 BEQ 12$ :BRANCH IF 2 CYCLE 
4011 004632 052711 000002 BIS #BIT1,(R1) N CYCLE = SET BIT IN DEVICE DESC 
4012 004636 011037 002560 12$: MOV (RO) RCSR *MOVE RECEIVED DATA TO RCSR TO GET CABLE STATUS 
004642 032737 127000 002560 BIT #127000,RCSR = : CHECK Y BITS ARE SET - THEY ARE IF NO CABLE 
4014 004650 001015 BNE 3$ {BRANCH iF “NO CABLE 
4015 004652 112710 000004 MOVB = #F 2, (RO) [CABLE IS POSSIBLY IN = SET FNCT2 
4016 004656 011037 002560 MOV (ROS .RCSR [MOVE RECEIVED DATA TO RCSR 
7 004662 052710 010000 BIS #MA, (RO) [SET THE MAINTENANCE BIT 
004 005010 CLR (ROS [CLEAR THE CSR TO po AN INIT 
4019 004670 032737 020000 002560 BIT WAT, RCSR [TEST THE ATIN BIT 
4020 004676 001402 BEQ ‘BRANCH IF NOT SET - NO CABLE 
1 004700 052711 000004 61S #B1T2,(R1) [SET CABLE BIT IN DEVICE DESC 
4022 004704 013704 006122 13$: MOV BDNUMB ,R4 [MOVE BOARD NUMBER TO R4 :DPMO01 
4023 004710 005304 DEC R [DECREMENT FOR CORRECT OFFSET = DPMOO1 
4024 004712 006304 ASL SSHIFT LEFT TO PRODUCE WORD OFFSET =DPMOO1 
4025 004714 010064 002416 MOV RS. REGADR(R4) MOVE CSR ADDRESS TO LOCATION AND [DPMOO1 
4026 004720 162764 000004 002416 SUB #4.REGADR(R4) :SUB 4 TO FORM ADDRESS FOR THIS MODULE :DPMOO1 
4027 004726 022122 CMP (R1)+, (R2)+ 7R1 & R2 GET NEW DEVICE e VECTOR LOC'S :DPMOO1 
4028 004730 000207 14$: RTS PC EXIT 
4030 004732 000300 000240 LEVELS: .WORD LEVEL6,LEVELS ;PRIORITY LEVELS TO LOAD INTO THE PSW 
004736 000200 000140 “WORD LEVEL4. “LEVELS 
4032 004742 111 116 120 ASK4VC: :ASCIZ [INPUT VECTOR :DPMO01 
33 00476 126 105 103 OUTORG: .ASCIZ ‘VECTOR OUi OF ? 30-77% RANGE  <CRLF> = DPMOO1 
4034 005017 126 105 103 NOTVEC: .ASCIZ ‘VECTOR IS NOT A MULTIPLE (OF 4i<CRLF> =DPMO01 
4035 005056 111 116 120 ASK4PR: .:ASCIZ {INPUT BOARD BR PRIORITY ! :DPMOO01 
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4036 005107 120 122 111 PROUT: .ASCIZ ‘PRIORITY OUT OF 4-7 RANGE: <CRLF> 
4037 «EVEN 





SEQUENCE 


;DPM001 
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SEQUENCE 


4038 .SBTTL SUBROUTINE TO PRINT THE AUTOSIZED BOARD CONFIGURATIONS 
4039 ee RRRRRERERERREREREREEREREREERERERERRERERRERERREREREREREEREREEEEE 
4040 :* 
4061 * THIS SUBROUTINE PRINTS THE BOARD CONFIGURATIONS FOUND BY ASIZE 
** 
4043 *: RAEAEAEAEKARARARAERAAREAEAEAERAREEKEAEAAEEAAARARAERAERAARERARARARARKEEE 
4044 005142 005037 002662 TYPCNF: CLR LOOP :CLEAR THE BOARD NUMBER COUNTER 
4045 005146 013705 001466 MOV SDEVM,RS [GET DEVICE MAP 
4046 005152 012701 002416 MOV WREGADR,R1 SMOVE THE ADDRESS OF THE REGISTER ADDRESS TABLE TO R1 
4047 005156 012702 002456 MOV #VECADR.R2 [MOVE THE ADDRESS OF THE VECTOR ADDRESS TABLE TO R2 
4048 005162 005003 CLR R3 ZCLEAR THE DEVICE DESCRIPTOR ADDRESS POINTER 
4049 005164 104401 037535 TYPE §_ ,NOBUT [TYPE: "NO. BOARDS UNDER TE 
4050 005170 013746 002414 MOV QTYBRD ,-(SP) *MOVE THE QUANTITY TO THE STACK FOR TYPEOUT 
4051 005174 104405 TYPDS [TYPE THE NUMBER 
4052 005176 104401 037574 TYPE  ,BRVWPC ‘TYPE THE HEADER 
4053 005202 012700 000020 MOV #16. RO ‘SET UP LOOP COUNTER FOR 16 BOARDS 
4054 005206 032705 000001 1$: BIT #B1T6,R5 ‘DEVICE UNDER TEST? 
4055 005212 0014 BEQ $ ‘BRANCH IF NO 
4056 005214 013746 002662 MOV LOOP ,-<SP) :PUr BOARD # ON STACK FOR TYPEOUT 
4057 005220 104405 TYPDS PRIN NT BOARD # (0 TO 16) 
4058 005222 401 037361 TYPE  ,SPACE6 YPE 6 SPACE CHARACTERS 
4059 005226 011145 MOV (R1),-- (SP) SAVE REGISTER ADDRESS FOR TYPEOUT 
005230 10440 TYPOC PRINT DEVICE REGISTER ADDRESS 
4061 005232 104401 037361 TYPE  ,SPACE6 :TYPE 6 SPACE CHARACTERS 
4062 005236 011246 MOV (R2),-(SP) SSAVE VECTOR ADDRESS FOR TYPEOUT 
4063 005240 104403 TYPOS SPRINT VECTOR ADDRESS 
4064 005242 003 000 .BYTE 3, [PRINT 3 DIGITS, LEADING ZEROS SUPPRESSED 
4065 005244 104401 037370 TYPE  ,SPACE7 [TYPE 7 SPACE CHARACTERS 
4066 005250 016337 001474 002720 MOV $DDWO(R3>,DDW MOVE DEVICE DESCRIPTOR WORD TO DDW 
4067 005256 032737 000001 002720 BIT #BITO,DDW ; TEST WHICH STATE, B o W. FOR THIS SOARD 
068 005264 001403 BEQ 360 PRINT W STATE IF W 
4069 005266 104401 037405 TYPE B P 
4070 005272 000402 BR 3$ 360 TO NEXT , CHECK 
4071 005274 104401 037407 2$: TYPE |W "TYPE A 
4072 005300 104401 037370 3$: TYPE | SPACE? TYPES? SPACE CHARACTERS 
4073 005304 004737 006560 JSR PC ,PNTPRI SPRINT DEVICE PRIORITY 
4 005310 164401 037370 TYPE ,SPACE7 : PACE CHARACTERS 
4075 005314 03273 002 002720 BIT #B1T1,DDW ‘TEST 2/N CYCLE STATE 
4076 005322 001403 BEQ 4s *GO PRINT 2 STATE IF 2 
4077 005324 104401 037422 TYPE [TYPE AN ‘N° 
005330 000402 BR §§ £60 TO NEXT CHECK 
4079 005332 104401 037420 4$: TYPE TWO YPE A ‘2° 
080 065336 104401 037370 5$: TYPE  ;SPACE7 TYPE ; SPACE CHARACTERS 
005342 032737 000004 002720 BIT #B1T2,0DW ‘TEST CABLE STATE 
4082 005350 001403 BEQ 63 GO PRINT ‘NO’ IF NO CABLE 
4083 005352 104401 037414 TYPE YES STYPE ° 
005356 00040 BR 7$ G0 TO LOOP CHECK 
085 005360 104401 037411 6$: TYPE NO :TYPE "NO" 
4086 005364 104401 001405 7$: TYPE [$CRLF STYPE A <CRLF 
4087 005370 005237 002662 8$: INC i INCREMENT BOARD COUNT FOR POSSIBLE NEXT PASS 
4088 005374 022122 CMP (R1)+, (R2)+ d INCREMENT COUNTERS 
4089 005376 006205 ASR RS SHIFT RS TO THE RIGHT TO MOVE BOARD BIT INTO BIT 0 
4090 005400 062703 000002 ADD #2,R3 SADD 2 TO THE DEVICE DESCRIPTOR WORD POINTER 
4091 005404 005 DEC RO 3DECREMENT THE LOOP COUNTER AND 
4092 005406 00127 BNE 1$ ANCH BACK FOR CHECK IF 16 BOARDS NOT DONE 
4093 005410 104401 001405 TYPE  ,$CRLF ‘TYPE ANOTHER <CRLF> 
4094 005414 000207 RTS PC SEXIT 
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4095 -SBTTL SUBROUTINE TO AUTO SIZE DR11 BOARD CONFIGURATION 

4096 Ei tit iii iti iis titi it iii ii iitiiiitiiiesiitiieiiiteiiiids) 

4097 :* 

4098 s* THIS SUBROUTINE AUTOSIZES THE BOARD CONFIGURATION IF PROMPTED BY THE 
4099 :* USER THAT SYSTEM IS OPERATING UNDER AN OPTION MANUFACTURING oe 
4100 7 TION (NO OTHER DEVICES HAVING CSR‘S SIMILAR TO THAT OF A DR11), OR 
4101 7 PROMPTS USER FOR EACH DR11 ADDRESS (SEMI-AUTOSIZE). IT THEN CALLS FOR 
rt s# THE PRINTING DF THE CONFIGURATION IF THE TABLE WAS MADE BY THIS ROUTINE. 

-* 

4104 ty RERRAAEKRAKEEERAEAAEEEEAEREEEEERERRARERAERRAAEEEREEEREEEREEEKAEKEKE 

4105 005416 004737 15 ASIZE: JSR PC BPINIT 3GO RESET THE ‘*.+2°' AND ‘BPT’’ LOCATIONS 

4106 005422 013737 000004 002672 MOV TOVECT. 9 SAVE TIMEOUT_VECTOR 

4107 005430 012737 005724 000004 MOV #7$, TOVECT : TIMEOUTS i 7$ 

4108 005436 013737 000006 002674 MOV THOPSW. OLDPS1 SAVE TIMEOUT PS 

4109 005444 012737 000340 000006 MOV #340, TMOPSW : TIMEOUT PRIORITY TO 7 

4110 005452 132737 000001 001430 BITB #8170, SENV 7SEE IF WE ARE a APT :DPMO01 
4111 005460 001004 BNE 1 BRANCH OUT IF S :DPMO01 
4112 005462 032777 010000 173650 BIT #81712, aSWR sDOES USER WANT Tooz AUTOSIZE? 3DPMO01 
4113 005470 001416 BEQ 1$ CH IF NOT :DPMO01 
4114 005472 005037 002414 100$: CLR QTYBRD ?CLEAR DEVICE COUNT :DPMO01 
4115 005476 005037 001466 CLR pa gh 7CLEAR THE DEVICE MAP :DPM001 
4116 005502 012737 000001 006122 MOV #1 ,BDNUMB START WITH BOARD NUMBER 1 :DPM001 
4117 005510 012700 160014 MOV #160014 ,R0 sMOVE START ADDRESS OF WINDOW TO RO 3DPM001 
4118 005514 012701 001474 MOV #SDDWO,R1 sLOAD DEVICE rere AD Ss :DPMO01 
4119 005520 012702 002456 MOV #VECADR ,R2 sPOINT R2 TO UNIT #1 bs 8 ADRS LOC 7DPMO01 
4120 005524 000524 BR 10$ GO START THE DR11 SEAR :DPMO01 
4121 005526 005737 002414 1$: TST QTYBRD SEE IF TABLE HAS BEEN LOADED :DPMO01 
4122 005532 001414 BEQ $ BRANCH TO LOAD LE :DPMO01 
4123 0055 104401 006401 TYPE -DYWTLT : TYPE: a YOU WISH TO CHANGE :DPMO01 
124 THE CONFIGURATION (Y OR <CR>)* ;DPMOO1 
4125 005540 012703 000001 MOV #1,R3 SEXPECT 1 CHARACTER :DPMO01 
4126 005544 004737 002722 JSR PC; READ :GO READ 1 CHARACTER OF USER INPUT :DPMO01 
4127 005550 022737 000131 002664 CMP #°Y ANSWER ZWAS A <Y> INPUTED? :DPMO01 
4128 005556 001156 BNE } BRANCH OUT OF ROUTINE IF NOT :DPMO01 
4129 005560 005037 002414 CLR CLEAR DEVICE COUNT 

4130 005564 012700 001474 2$: MOV #SDDUO RO :MOVE ADDRESS OF 1ST DDW TO RO 

4131 005570 012701 000020 MOV #16. Ri 7CLEAR 16 WORDS 

4132 005574 005020 3$: CLR (RO) + CLEAR THE WORD 

4133 005576 005301 DEC R1 ;DECREMENT THE LOOP COUNTER 

4134 005600 001375 BNE BRANCH BACK IF NOT DONE YET 

4135 005602 005037 001466 CLR CLEAR DEVICE MAP 

4136 005606 012737 000001 006122 MOV BDNUMB ; START WITH 1 tra ;DPMO01 
4137 005614 012701 00147 MOV #30000. R1 ;LOAD DEVICE DESC ADDRESS :DPMO001 
4138 005620 O16 706 002456 MOV #VECADR, a :POINT R2 TO_UNIT #1 VECTOR ADRS LOC :DPMO01 
4139 005624 012737 000067 002704 MOV #°7 LRGSTC MOVE ASCII 7 TO LRGSTC FOR OCTAL INPUT ;DPMOO1 
4140 005632 104401 006124 4$: TYPE "INBEV sTYPE: ‘INPUT DEVICE ° 3DPM001 
4141 005636 013746 00612 MOV BDNUMB , ~ (SP) SAVE BDNUMB FOR TYPEOUT :DPMO001 
4142 005642 104403 TYPOS :TYPE THE BOAR :DPM001 
4143 005 002 BYTE 2 sTYPE 2 DIGITS :DPMO01 
4144 005645 000 BYTE 0 ;SUPPRESS LEADING ZEROS :DPMO01 
4145 005646 104401 006142 TYPE - STAD 3 TYPE: HA ad ADDRESS :DPMO01 
4146 zt NO MORE) * :DPMO01 
4147 005652 012703 000006 MOV #6,R3 EXPECT é5 DIGI :DPMO01 
4148 005656 004737 002722 JSR PC ,READ :GO READ THE USER* S_INPUT :DPM001 
4149 005662 5704 TST R4 SEE IF AN <i WAS MADE :DPMO01 
4150 005 001505 BEQ 12$ sBRANCH OUT IF NO MORE :DPMO01 
4151 005666 022704 160010 CMP #160010,R4 :SEE IF ADDRESS IS TOO LOW :DPMO01 
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4152 005672 193005 BHIS 5$ ;BRANCH TO REPORT ERROR INPUT IF SO :DPMO01 
4153 005674 022704 172770 CMP #172770,R4 SEE IF ADDRESS IS TOO HIGH *DPMO01 
54 005700 103003 BHIS CH IF :DPMOO1 
4155 005702 104401 006255 5$: TYPE _ ,OUTRAN ; TYPE: "ADDRESS OUT OF 160010-172770  DPMOO1 
56 RANGE = TRY AGAIN’ :DPMOO1 
57 005706 000751 BR 4$ 760 DECREMENT BDNUM AND TRY AGAIN *DPMOO1 
4158 005710 032704 000007 6S: BIT #7 RG ‘SEE THAT ADDRESS IS A START ADDRESS § :DPMOO1 
4159 005714 001425 BEQ 9$ BRANCH *DPMOO1 
60 005716 104401 006335 TYPE _,NOTST :TYPE: "NOT A STARTING ADDRESS - :DPMOO1 
4161 : TRY A AGAIN N° :DPMOO1 
4162 005722 000743 BR 4$ [GO DECREMENT BONUM AND TRY AGAIN *DPMOO1 
4163 005724 022626 7$: CMP (SP)+, (SP)+ [CORRECT STACK AFTER TIMEOUT 
4164 005726 132737 000001 001430 BITB #BI1TO.SENV SSEE IF WE ARE UNDER APT :DPMO01 
4165 005734 001004 BNE 75$ ‘BRANCH OUT IF WOT :DPMOO1 
4166 005736 032777 010000 173374 BIT #B1T12,aSwWR [SEE IF UNDER MANUFACTURING ENVIRONMENT :DPMOO1 
4167 005744 001406 BEQ 8$ ‘BRANCH IF NOT :DPMOO1 
4168 005746 062700 000010 75$: ADD #10,R0 [MOVE TO NEXT MODULE ADDRESS :DPMOO1 
4169 005752 022700 173004 CMP #173004 ,RO SHAVE WE LOOKED OUT THE ENTIRE WINDOW? :DPMOO1 
4170 005756 001007 BNE 10$ ‘BRANCH iF NOT = MORE DAYDREAMING = DPMOO1 
4171 005760 000447 BR 12$ SBRANCH TO EXIT = BOSS JUST CAME IN :DPMOO1 
4172 005762 104401 006207 8$: TYPE ,NOBD ;TYPE: CANT SEE THE DR11 BOARD - : DPMOOT 
4174 005766 000721 BR 4$ [BRANCH BACK FOR NEW INPUT <OPNOOT 
4175 005770 010400 9$: MOV R4,RO [MOVE CHECKED ADDRESS TO RO = DPMOO1 
4176 005772 062700 000004 ADD #4-RO ‘MAKE RO ADDRESS THE CSR = DPMOO1 
4177 005776 005010 10$: CLR (RO) “MAKE SURE IT IS THERE = DPMOO1 
4178 006000 010146 MOV R1,-(SP) [SAVE PRESENT VALUE OF 7 ON THE STACK :DPMOO1 
4179 006002 004737 004232 JSR PC. DRGET :60 EXTRACT INFO FROM T HE DR11 
4180 006006 020126 CMP R1,(SP)+ WAS THE LOCATION A DR11? :DPMOO1 
4181 006010 001010 BNE 11 [BRANCH TO BOARD INCREMENT IF SC :DPMOO1 
4182 006012 132737 000001 001430 BITB #BITO,SENV [SEE IF WE ARE UNDER APT :DPMOO1 
4183 006020 001022 BNE 110$ ‘BRANCH ouT IF SO :DPMOO1 
4184 006022 032777 010000 173310 BIT #B1T12,aSwWR [1S THIS A MANUFACTURING CONFIGURATION? :DPMOO1 
4185 006030 001754 BEQ as 'GO CALL ERROR IF NOT ‘DPMOO1 
4186 006032 022737 000020 006122 11$: CMP #16. ,BDNUMB [SEE IF THE TABLE IS FULL :DPMOO1 
4187 006040 001417 BEQ 12$ SEXIT IF SO :DPMOO1 
4188 006042 005237 006122 INC BDNUMB ‘INCREMENT BOARD NUMBER ‘DPMOO1 
4189 006046 132737 000001 001430 BITB #BITO,SENV [SEE IF WE ARE UNDER APT :DPMOO1 
4190 006054 001004 BNE 110$ ‘BRANCH OUT IF SO :DPMOO1 
4191 006056 032777 010000 173254 BIT #B1T12,aSwWR [SEE IF UNDER MANUFACTURING ENVIRONMENT :DPMOO1 
4192 006064 001 BEQ 4$ [BRANCH IF NOT :DPMOO1 
4193 006066 000010 110$: ADD #10,RO ;MOVE TO NEXT MODULE ADDRESS [DPMOO1 
4194 006072 022700 173004 CMP #173004 ,RO HAVE WE LOOKED OUT THE ENTIRE WINDOW? :DPMOO1 
4195 006076 001337 BNE 10$ {BRANCH IF NOT - MORE DAYDREAMING :DPMOO1 
4196 006100 013737 002674 000006 12$: MOV OLDPS1,TMOPSW RESTORE TIMEOUT PS 
4197 006106 013737 002672 000004 MOV OLDPC1, TOVECT RESTORE TIMEOUT VECTOR 
4198 006114 004737 005142 13$: JSR PC, TYPCNF ‘GO TYPE THE BOARD CONFIGURATIONS 
4199 006120 000207 RTS PC EXIT 
4201 006122 000000 DN .WORD 0 ZLOCATION TO HOLD BOARD NUMBER :DPMO01 
4202 006124 111 116 120 INDEV: .ASCIZ {INPUT DEVICE } :DPMOO1 
4203 006142 040 123 124 STAD:  <ASCIZ | STARTING ADDRESS (<CR> IF NO MORE? =DPMOO1 
4204 006207 103 101 116 NOBD: .ASCI2 {CAN'T SEE THE DR11 BOARD - TRY RCAINI<CR LF> [DPMOO1 
4205 006255 101 104 104 OQUTRAN: [ASCIZ {ADDRESS OUT OF 160010-172770 RANGE - TRY AGAIN! <CRLF> [DPMO01 
4206 006335 116 117 124 NOTST: <ASCIZ !NOT A STARTING ADDRESS - TRY AGAIN!<CRLF :DPMOO1 
4207 006401 104 117 040 DYWILT ASCH? ‘DO YOU WISH TO CHANGE THE CONFIGURATION ty OR <CR>) | :DPMO01 
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4209 -SBTTL ROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS 

421 FF RARER EEEEEEEERERERREREREREREEEREREEREREEEEEEREREE 

4211 3* 

4si§ 3* THIS IS THE ROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS 
** 

4216 PP ITIIITITITITITITITITI TILT TLITITILiLiLitiliti iLL Litt teil 

4215 006466 012737 000340 177776 CATCH: MOV #LEVEL7,PSW sREESTABLISH CPU PRIORITY AT 7 

4216 006474 012637 002542 MOV (SP)+, BDVECT ;GET ADDRESS OF TRAP VECTOR + 4 

4217 006500 012637 002674 MOV (SP)+,OLDPS1 SAVE PS 

4218 006504 012637 002676 MOV (SP)+,OLDPC2 zSAVE PC OF ADDRESS OF INSTRUCTION CAUSING TRAP 

4219 006510 012637 002700 MOV (SP)+,OLDPS2 SAVE 2ND PS 

4220 006514 162737 000004 002542 SUB #4, BDVECT ;ADJUST TO POINT TO TRAP ADDRESS 

4221 006522 104050 ERROR +56 ;UNEXPECTED TRAP OR INTERRUPT TO TRAP ADDRESS BELOW 

4222 006524 013746 002700 MOV OLDPS2,-(SP) sRESTORE PS RETURN ON STACK 

4223 006530 073746 002676 MOV OLDPC2,-(SP) sRESTORE PC RETURN ON STACK 

4224 006534 000002 RTI RETURN 


CZDRLDO=-DR11 GEN NPR_INTFC 
SUBROUTINE TO PRINT STATE OF A DDW BIT 


4225 

422 

422 

4228 

4229 

4230 

4231 

ret 006536 
4233 006540 
4234 006546 
4235 006550 
4236 006552 
4237 006554 
4238 556 





005046 


1 
000207 





002710 002720 


000 
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SEQUENCE 
.SBTTL SUBROUTINE TO PRINT STATE OF A DDW BIT 
3s Kee eReERERRERRERRREREEREREREERARERERRERARERRERRE REE EERE EERE 
** 
i* THIS SUBROUTINE PRINTS THE STATE OF THE BIT IN THE DDW THAT WAS 
i* PRELOADED INTO BITTST. 
** 
*: : iva: ck) | (2)”””:*C eee STATE At fene IntTiAi’ 
PSTATE: CLR = =(SP) ;SHOW STATE AS ZERO INITIALLY 
BIT — BITTST,DDwW CHECK STATE OF BIT IN DDW USING BIT SET IN BITTST 
BEQStsédTS BRANCH IF NOT SET 
INC (SP) :SHOW A '1' STATE FOR THAT BIT 
1$: TYPOS TYPE THE STATE, LEADING ZEROS SUPPRESSED 
BYTE 1,0 TYPE 1 CHARACTER, SUPPRESS LEADING ZEROS 


RTS PC EXIT 


74 
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4239 .SBTTL SUBROUTINE TO PRINT DEVICE PRIORITY 
aSc} FERRARA EAA EEEERERERERREREAEREREERERREREREREEREREEEEEE 
4241 ;* 
6262 * THIS SUBROUTINE PRINTS THE DEVICE PRIORITY 
** 
4244 ? FEAR AAEAERERERARAEREEEEEEEEEERERERERREERREEEEEEREAERRREEREEEERREEE 
4245 006566 013746 002720 PNTPRI: MOV DDW,-(SP) :PUT DEVICE DESCRIPTOR WORD ON STACK 
4246 006564 006216 ASR (SP5 :SHIFT RIGHT STACK LOCATION 5 PLACES 
4247 006566 006216 ASR (SP) 
4248 006570 006216 ASR (SP) 
4249 006572 006216 ASR (SP) 
4250 006574 00621 ASR (SP) 
4251 006576 042716 177770 BIC #177770,(SP)  ;MASK TO GET PRIORITY 
4252 006602 104403 TYPOS [TYPE THE DEVICE PRIORITY 
4253 006604 001 000 .BYTE 1,0 STYPE 7 CHARACTER, SUPPRESS LEADING ZEROS 
4254 006606 000207 RTS pC TEXIT 
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011637 001360 


012706 001300 
001340 
001300 


031200 


tek 8 Ot ed td td od 


: 

Ns 

oO 

~M 
ooo°oo 
Noe 


177777 


Ss 

~~ 

oOo 

—_ 

i] 

eg 8 

WE oN 
rN 


007016 


NUNNNNNNOW 
S 
S 
So 
— 
™N 
=~ 


000200 
001432 
001360 


2 egussee 
NE NOONNS, 
WOWWAA 


sc 


007060 
4265 007060 
4266 007064 


os 
NO 


000020 


026074 


001315 
001306 
001310 


000004 


0 
172334 


001340 
001342 


001431 
001340 


SEQUENCE 
.SBTTL INITIALIZE THE COMMON TAGS SUBROUTINE 
FERRARA ARERAAAREREEEEREEEREREEAARERERRAEERREREEREREREREREEE 
** 
te THIS SUBROUTINE INITIALIZES THE INTERRUPT VECTORS. USE IS AS FOLLOWS: 
3* V ASTA s INITIALIZE THE STACK 
78 JSR PC, ee itap CALL THE SUBROUT INE 


SRAEREEAAAAERAEEEAAAREEREEEEAAAAAAAEARAAAARAERARAARAAEREREKKKKEKAEE 


SETTUP: MOV (SP) ,$TMPO ;SAVE RETURN ADDRESS 


-SBTTL INITIALIZE THE COMMON TAGS 
3zCLEAR THE COMMON TAGS (S$CMTAG) AREA 
MO #SCMTAG ,R6 itl eaR LOCATION TO BE CLEARED 
CLR (R6)+ CLEAR MEMORY LOCATION 
CMP #SWR,R6 ;;DONE? © 
-~6 LOOP BACK 


K IF NO 
#STACK, SP i TSETUP THE STACK POINTER 
s INITIALIZE A FEW VECTORS 


#SSCOPE ,a# 1OTVEC s10T VECTOR FOR SCOPE ROUTINE 


MOV #340, a#1OTVEC+2 : LEVEL 

MOV #SERROR, a#EMTVEC. EMT VECTOR FOR ERROR ROUTINE 

MOV #340, a#EMTVEC +2 LEV ? 

MOV #STRAP a#TRAPVEC :; TRAP VECTOR FOR TRAP CALLS 

MOV #340, @#@TRAPVEC+2;LEVEL 7 

MOV #SPURDN, a#PWRVEC : sPOWER FAILURE VECTOR 

MOV #340. aaPuRVEC+2 siLEVEL 7 

MOV SENDCT, SEOPCT ty TUB END-OF =PROGRAM COUNTER 

CLR SESCAPE :3 CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1,$ERMAX TALLOW ONE ERROR PER TEST 

MOV 8 -$LPADR 3 INITIALIZE THE LOOP ADDRESS FOR SCOPE 


#. RR HE ERROR LOOP ADDRESS 
33SIZE FOR A HARD DWARE SWITCH REGISTER. IF NOT FOUND OR IT 
:zEQUAL TO A *’=1"*, SETUP FOR A SOFTWARE Foe Ae ao 


MOV @#ERRVEC,-(SP) ::SAVE ERROR VECT 
MOV #64$S.aMERRVEC ::SET UP ERROR VECTOR 
MOV #DSWR, SWR 33 FOR A HARDWARE SWICH REGISTER 
MOV MDDISP,DISPLAY : A HARDWARE DISPLAY REGISTER 
CMP #-1,aSWR ze TRY TO REFERENCE HARDWARE 
BNE 66$ [BRANCH IF NO TIMEOUT TRAP OCCURRED 
Z3AND THE HARDWARE Su =- 
BR 65$ [BRANCH IF NO TIMEOUT 
64$: Mov #65$, (SP) ':SET UP FOR TRAP RETURN 
65$: MOV #SWREG, SWR z:POINT TO SOFTWARE SWR 
MOV #D1SPREG, DISPLAY 
66$: MOV (SP) +, a#ERRVEC ;7RESTORE ERROR VECTOR 
CLR A LEAR PASS COUNT 
BITB $#APTSIZE.SENVM :ITEST USER SIZE UNDER APT 
BEQ 67$ [YES,USe NON-APT SWITCH 
nes MOV #SSWREG, SWR T=NO,USE APT SWITCH REGISTER 
MOV STMPO,-(SP) :PUT RETURN ADDRESS ON STACK AND 
RTS PC [RETURN TO THE CALLING ROUTINE 
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4295 007200 
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002712 
000401 


000060 
000040 
000001 


000020 
000002 


000004 
000002 
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007104 


902572 
002572 
002713 


002572 
002713 


002713 


2s: 


3$: 


4$: 
5$: 


SEQUENCE 77 


-SBTTL MEMORY MANAGEMENT AND LOCATION CHECK SUBROUTINE 


SRARAARERAARAAAAAAAAAAAAARAAERAAARARAAAAAEAAAARERRAEEAEHEEKRAREREEE 


THIS SUBROUTINE CHECKS FOR MEMORY MANAGEMENT EXISTENCE AND WHETHER OR 
NOT A LOCATION IN UPPER MEMORY EXISTS. 


MEMGMT 

4$ 
#CY+G0,1$ 
R2,(PC)+ 
CY+*GO 

4$ 

Sau? CM 
#xX7,ECSR 


#81T0,MEMGMT +1 
5$ 


4h 

#X6,ECSR 
#B1T1,MEMGMT +1 
5$ 


4$ 
#B1T2,MEMGMT+1 
#2, (SP) 

pr 


sTEST TO SEE IF MEMORY MANAGEMENT EXISTS 
BRANCH IF NOT 


ANCH 
:SET_UP BIT TEST DATA 
:TEST TO SEE IF BOTH THE CYCLE AND GO BITS ARE SET 
:LOCATION TO STORE THE CYCLE AND GO a TS 

KICK gut IF CYCLE AND/OR GO ARE CLEAR 
SEE I —, OR XBA17 WERE SET IN EXPECTED DATA 
‘BRANCH OUT IF NOT 
SEE IF XBA17 IS SET 
60, CHECK STATUS OF XBA16 iF S 
E_ IF 200000+NOCARE WAS FOUND. TO EXIST = IF NO 
£60 SET EXPECTED ERROR AND NEX BITS AND CHECK FOR “ERROR 
ANCH OUT IF LOCATION EXISTS 

7SEE IF XBA16 IS SET 
SBRANCH TO CHECK ptt yee er IF SET 
SEE IF 400000+NOCAR F OUND HB EXIST = IF NOT, 
:GO SET EXPECTED ERROR WAND NEX BITS AND CHECK FOR ERROR 
BRANCH OUT IF LOCATION EXISTS 
+ IF 600000+NOCARE WAS FOUND TO EXIST - IF NO 

O SET EXPECTED ERROR AND NEX BITS AND CHECK POR “ERROR 
ZCORRE CT PC RETURN 


KICK 


C 
8 


4311 007216 
4312 
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-SBTTL BIT PATTERN 


RARER AAAAERAAAHAEHEREAARARARAKARAAAARRAKRARAAKRARAARAETARAA AEA 


4 
* THIS IS A BIT PATTERN TABLE THAT CAN BE USED TO CHECK ANY LOCATION FOR 
* ALL COMBINATIONS OF STUCK AND/OR SHORTED BITS. 

w& 


SRERAAAARERARAAARAAAARAREREREAARARAARARAARAAAAAEEAAREAAAKEEREAAAEAEE 


eRADIX 2 ; THIS tay yOU TO SEE THE PATTERNS IN BINARY 
PATRNS: .WORD 1111111111111111 = SALL SET BIT 

-WORD 0000000000000000 <ALL CLEAR a TS 

«WORD 0101010101010101 ;EVEN BITS SET, ODD BITS CLEAR 

“WORD 1010101010101010 ODD BITS SET, even BITS CLEAR 

WORD 0011001100110011 PAIRS OF BITS SET 

«WORD 0000111100001111 ;GROUPS OF 4 BITS SET 

“WORD 0000000011111111 UPPER BYTE CLEAR, LOWER BYTE SET 

RADIX 8 :THIS RETURNS MODE BACK TO OCTAL 


78 





CZDRLDO-DR11 GEN NPR_INTFC 
EXPECTED DATA TABLE FOR CSR CHECK TEST 30 


7 
MACRO M1113 O2-NOV-81 16:08 PAGE Be 
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SEQUENCE 79 


14 ee 
15 s* 
$318 i* THE “EXPAT® TABLE IS USED TO CHECK THE CONTENTS OF THE CSR AFTER SETTING 
tsi 3* THE BITS IN THE CSR. 
-* 
the IITITITITITITIITITITI TILT TTITIT ITT TT iiiiiiiiiiiititi ttt itil 
a351 007220 MAICLR x 1 2 3 4 5 7 
4322 007220 000200 000 00120 “WORD 0200,0000,120 1002. 122804, 122204. 123806, 123206 sCSR QOOOOX EXPECTED 
ar Sse SSS Se Bil HES UE ENE HT Re: Sale TG tae SO EEE 
$s SSS SSS SES Siang eSB ie net Seaton Se EuerT 
$3, Sra Ssh Sates Sass RB SS HRS GSR Sa TaRae- cass Sa Eur 
007400 004270 004070 005272 - WORD 62/0; 4070, 87973072. 1263 4.126274, 127276,127276 CSR O0007X EXPECTE 
0074 000300 000100 001302 «WORD 0300,0100,1302.1102,122304,022104,123306.023106 CSR 00010x EXPECTED 
4331 007440 004310 004110 005312 WORD = 4310,4110,5312,5112,126314.026114,127316,027116 CSR 00011X EXPECTED 
332 007460 000320 000120 001322 . WORD EP eL ey ea Se aee O66 1 gh. 163360. 063166 zCSR 00012X EXPECTED 
4333 007500 004330 004130 005332 -WORD 4330,4130,5332,51 571583 4 ,026134,127356,027136 CSR 00013X EXPECTED 
4334 007520 009340 000140 001342 - WORD 0320-0180. ies: Les! 2344022144, 123346,023146 5CSR 00014X EXPECTED 
Ss Se SS SIS Sess SHR HUS TRS HES MR BUG aCe cts SUT CuI 
7 007 004370 004170 005372 «WORD = =4370,4170,5572.5172,126374,026174,127376,027176 CSR 00017X EXPECTED 
4338 007620 000200 001602 «WORD 0600,0200,1602,1202,122604,122604,123606.123606 ;:CSR 00040X EXPECTED 
4339 007640 004610 004210 005612 “WORD 4610,4210,5612,5212,126614,126614,127616,127616 ;CSR 00041X EXPECTED 
0 007 000620 000220 001622 - WORD 06 Oc e8 «LORS - Isese! Cogs - 1g cOgt - 15 3088- 152088 zCSR 00042X EXPECTED 
1 007 004630 004230 005632 «WORD 4630,4250,5632,5232,126634,126634,127636,127636 ;CSR 3X EXPECTED 
4342 007720 000640 000240 001642 - WORD 188 OSE 1885-1585. 1ScOG8- 1g eGes - 153689. 153646 sCSR 00044X EXPECTED 
4343 007740 00465C 004250 005652 «WORD  4650,4250,5652,5252, 126654, 126654,127656,127656 ;CSR 00045X EXPECTED 
4344 007760 000660 000260 001662 - WORD 966 «0668 - 1085 « 1SG5- 1g cobs - 1506S» 153068. 163068 2CSR 00046X EXPECTED 
4345 01 004670 004270 005672 -WORD 4670,4270,5672,5272,126674,126674,127676,127676 ;CSR 7X EX 
4346 010020 000700 000300 001702 - WORD Moon oe eee aos» 150206 05 e308 - 163700063208 zCSR GOOSOX EXPECTED 
4347 010040 004710 004310 005712 -WORD 4710,4310,571 Si ES abe TST yea ah te sCSR 20051X EXPECTED 
4348 010060 000720 090320 001722 -WORD 07 80360. 176s. 1366. 150768 - Ose see! 37 80g sage :CSP X EXPECTED 
4349 010100 004730 004330 005732 «WORD 4730,4350,5732,5332., 126734 .026334,127736.027336 :CSR 00053X EXPECTED 
4350 010120 000740 000340 001742 “WORD  0740,0340,1742,1342,122744,022344,123746,023346 CSR 4X EXPECTED 
4351 010140 004750 004350 005752 «WORD 4750,4350,5752,5352.,126754,026354,127756,027356 CSR O0055X EXPECTED 
4352 010160 000760 000360 001762 «WORD 0760,0360,1762,1362,122764,022364.123766.023366 :CSR O0056X EXPECTED 
4353 010200 004770 004370 005772 «WORD = 4770,4370,5772,5372,126774,026374,127776,027376 ;CSR 00057X EXPECTED 


80 
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-SBTTL EXPECTED DATA TABLE FOR CSR CHECK TEST 3 
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EXPECTED DATA TABLE FOR CSR CHECK TEST 3 
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BaAaoGgogaAAaAAaaaAaaaaaaaaad 
I gd 
ee 
VVVOEEE VEU OVO VOEC LV U0U00U 
aaboaoaoonoooaoaoonae 
2K OK WK WK WC DE DE OK OK OK OK OK OK OK OK OK OE OK OKO OE 
Sg gd dd 

<M KC OE OK ff Sand WF | <M EH OK OE OK 


aaa 
Wu 
| all aell anee 
YVVvVU 
aan 
<< OC 
VU TVUTYY) 
BS BC RC BC OK BK BE OK =< 
Sssss 
Sssss 
ce 
ooo 
ez 
NNN 
wate te 


33K EXPECTED 


SSHoscases Sess eTIPOAARaAsa 
SSSSSSSS5SSSSSSSSSSSSSSSSS 
eel cel ee ce ee ee ee ee ee a 


OOOOOCOCooooooooooooooooooo 
oe 


~ MOUNTS Ses MUATK Oo 
Roo sss SSHARIRELKHSRIRIESHSAIASES 
mer RARMRMARMAMAMRV OV OV OVO VONOSONS 
Cl el ee oe el el el cel oe el ol el el cel el ee el oe cl ek el ol le el oe ee oe 
SO. 3.0.0: 3.0: d.00: SOO 3.0 sO .0: sO: 2.0: 90000000 
ono 
SHRM SRSR SHAG ADOT IAT ADL OM AIA SAS 
DON CUICICQUICUICUCUMM MIM MIM iim OO O00 0 OOKLA RARR 
MEME ME MR MR MR MR MR ME MR RMR MR MR OR OR 


see seseseeseseseseesese eee see eeee ese 8 ts eee 8 & & 


bt i an te eo Sz, > i ee ot 
SUNNAUANANCMMMMMMMM OOOO DOORRANAR RN 
SOCOM OU OM OW OW OW OW OW OWOWMOWOWONMONO 


ROCIO CIN CIR. NICE ONION CINCO 
OK VUNTHOR. OF NUM TNOR. OF MM TN OR. OK CUMIN OR. 
MINICUCUICUEU CUCU CUMIM MINIM OOO 0000 0R.LARRARR 


-Soooo ~ 4 OE NUININUINUININININIMMMMMMMM 


COOOCOOOSOCOSOOSOCOOSSOSOOSOSOSOOOOOOOCCCOoO 


SeaSosse OOOOCOOCOsucucucucucucucuaucucucucusucucu 


x setae deme aie soe Sem ee se cme ce ek cee coe cee ck cee cee ee ee oe coe eel eee eel ed eee eel oe oe eed 


COOOCOSOOSOSOSOSOSOCOSOSSSOSOOSOOSSOSOSCOCoo°eom 


SOLRSSRSP SLgoese CRS SSSseseoesesese 
SSSSSSSSsVsyssssy wovwowovwroy 
PhP eRSRSRER ESSA EAEHR Eh EE PEER G AOS 


ae we fw ew fw we fw ww lw lola lo lolol olelolololeleloleolelelololololq~) 


eesseosansesee SISERSS 


COOOCCOOO COCO OCOOOCOOO OOO OOOO O MO OOoOOoOOoOOoO om 
MOR. Oo im ROK CUMTNOR. oO ™~ 
RAAARAASSSISOSSSORERERKRERR S5SRaaoae 
MMMM RIM) MMMMMMMMmmm, 
<2 2 2 ee ee ee So oS So DD DD DS DS DD DD SD SD DD DS 


———_—_——_— 
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CZDRLDO-DR11 GEN NPR INTFC 
FUTURE PATCH AREA 


4389 .SBTTL FUTURE PATCH AREA 
4 90 33 RAERERARARERAERKEREAREAEREEEEAEREAAREERAEARAEEEERERARARRRERRARERAE 
4391 3* 
439 st THIS AREA IS RESERVED FOR PERMANENT PATCHES WHICH MAY BE INITIATED IN 
tier 3* THE FUTURE. 
° 
4395 : FARRAR EREERERREEREREERERE RAERRARRERAERRERRERERERREREEREEREREREEEE 
4396 011220 000000 000000 000000 PATCHS: ~ WORD 0,0,0.0,0,0,0,0,.0,0,0.0.0,0,0,0,0,0,0.0,.0,0,0,0,0,0,0,0,0,0.0,0 
4397 011320 000000 000000 000000 «WORD 0,0,0,0,0,0,0.0,0,0,0,0,0,0,0,0.0,0,0,0,0,0.0,0,0,0,0,.0,0,0,0,0 
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4398 .SBTTL MAIN PROGRAM = INITIALIZATION ROUTINES 
4399 FRARAERAAEAERERAREEREREEEEEERERERRREREERERERERERERERRERAEAEREEAEREEE 
4400 

rr ?MAIN PROGRAM ~ INITIALIZATION ROUTINES 

4403 PIITIIITITITITITITIITT TTI TTI TTITITI TTT TiTiti titi iitititi tet tii 

4404 

4405 011420 005037 002670 START1: CLR MANSIZE ZCLE4R THE MANSIZE SO WE WILL AUTOSIZE 
4406 011424 005037 001416 START: CLR SPASS [CLEAR $PASS 

4407 011430 005037 026010 CLR PREOP sCLEAR THE EOP PRINTING FLAG ;DPMO01 
4408 011434 005037 002716 CLR $PASS2 [CLEAR $PASS2 

4409 011440 005037 001412 CLR SFATAL :CLEAR ERROR NO. 

4410 011444 005037 001410 CLR SMSGTYP TCLEAR MESSAGE TYPE 

4411 011450 005037 001414 CLR STESTN CLEAR 

4412 011454 005037 001420 CLR SDEVCT ‘CLEAR DEVICE COUNT 

4413 011460 005037 001422 CLR SUNIT [CLEAR UNIT NUMBER 

4414 011464 012737 000006 000004 MOV #TOVECT #2. TOVECT: INITIALIZE TIMEOUT VECTORS TO 6 

4415 011472 012737 000003 000006 MOV #BPT, TMOPS CATCH ER ROUTINE 

4416 011500 012706 001300 MOV #STACK,SP INI TIALIZE THE STACK 

4417 011504 004737 006610 JSR PC,SETTUP :GO TC THE SETUP ROUTINE TO INITIALIZE VECTORS 
4418 011510 005037 001422 CLR SUNIT SCLEAR $UNIT 

4419 011514 005037 001420 CLR SDEVCT *CLEAR $DEVCT 

4420 011520 005037 001414 CLR STESTN [CLEAR $TESTN 

4421 011524 005037 002706 CLR EOPLOC :CLEAR EOPLOC 

4422 011530 132737 000001 001430 BITB #BI1T0,SENV SCHECK IF ON APT 

4423 011536 001404 BEQ ‘BR IF NOT APT 

4424 011540 132737 000200 001431 BITB $$ #B1T7,SENVM ‘DID APT SIZE 

4425 011546 001007 BNE ‘BR, IF APT SIZED 

4426 011550 022737 177777 002670 1$: CMP #-1,MANSIZE [WAS CONFIGURATION SET UP IN MULT. BOARD ROUTINE? 
4427 011556 001446 BEQ BEGIN SIF YES, SKIP SELF-SIZING 

4428 011560 004737 005416 JSR PC ASIZE SAUTOMATICALLY SIZE FOR BOARD CONFIGURATION 
4429 (11564 000443 BR BEGIN * BRANCH 

4430 011566 005037 002414 2s: CLR QTYBRD [CLEAR DEVICE CNT 

4431 011572 013702 001466 MOV SDEVM,R2 *MOVE DEVICE MAP TO R2 

4432 011576 005702 3$: TST R2 :TEST MSB OF DEVICE MAP 

4433 011600 1 BPL 4$ :BR, IF MSB IS ZERO 

4434 011602 005237 002414 INC QTYBRD TINCREMENT DEVICE COUNT, IF MSB=1 

4435 011606 000241 4$: CLC ‘CLEAR THE CARRY BIT FOR THE ROL 

4436 011610 006102 ROL R2 :SHIFT NEXT BIT INTO MSB POSITION 

4437 011612 001371 BNE 3$ : CONTINUE CHECKING $DEVM, IF MORE BITS SET 
4438 011614 012702 002416 MOV WREGADR ,R2 INT R2 TO THE DEVICE ADDRESS TABLE 
4439 011620 013700 001464 MOV S$BASE ,RO TOAD BASE DEVICE ADDRESS IN RO 

4440 011624 012701 000020 MOV #16.,R1 [MOVE LOOP COUNTER TO R1 

4441 011630 010022 5$: MOV RO, (R2)+ :MOVE DEVICE ADDRESS TO TABLE 

4442 011632 062700 000010 ADD #10,R0 *POINT RO TO NEXT DEVICE ADDRESS 

4443 011636 005301 DEC R1 :DECREMENT THE LOOP COUNTER AND 

4444 011640 001373 BNE 5$ CH IF NOT ALL DONE YET 

4445 011642 012702 002456 MOV AVECADR, R2 [GET LOCATION OF VECTOR TABLE 

4446 011646 013700 001460 MOV SvecT [COPY BASE VECTOR 

4447 011652 042700 177400 BIC s10O 8 [CLEAR UPPER BYTE 

4448 011656 012701 000020 MOV je R1 7D0 16 V veCt TORS 

4449 011662 010022 6$: MOV RO iho) :PUT VECTOR ADDRESS IN TABLE 

4450 011664 062700 000010 ADD #10,R0 :POINT RO TO NEXT VECTOR ADDRESS 

4451 011670 005301 DEC R1 [DECREMENT LOOP COUNT 

4452 011672 001373 BNE 6$ ‘BRANCH IF NOT ALL DONE YET 





ee ee 
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DETERMINE MEM MGMT AND UPPER MEMORY EXISTENCE 


4453 .SBTTL DETERMINE MEM MGMT AND UPPER MEMORY EXISTENCE 
4454 011674 005737 001416 BEGIN: TST SPASS SEE IF THIS IS THE FIRST PASS 
4455 011700 001003 BNE 1$ [BRANCH IF NOT 

4456 011702 005737 002716 TST $PASS2 SEE 7 UPPER LOCATION HAS BEEN SET 

4457 011706 00140¢ BEQ 2$ ‘BRANCH IF SO 

4458 011710 000137 012356 1$: JMP BEGINI : JUMP TO BEGINI 

4459 011714 005037 002712 2$: CLR MEMGMT ‘CLEAR THE MEMORY MANAGEMENT FLAG 

4460 011720 013737 000004 002672 MOV TOVECT,OLDPC1 :SAVE TIMEOUT VECTOR 

4461 011726 012737 012320 000004 MOV #15$ TOVECT S TIMEOUT VECTOR TO 13$ 

4462 011734 013737 000006 002674 MOV TMOPSW, OLDPS1 ; SAVE TIMEOUT PS 
4463 011742 012737 000340 000006 MOV #LEVEL?. TMOPSW “PS TIMEOUT TO PRIORITY 7 
4464 011750 005037 17757 CLR MMRO [TEST FOR MEMORY MANAGEMENT & TURN IT O 
4465 011754 105237 00271 INCB  MEMGMT S INCREMENT FLAG SHOWING MEMORY MANAGEMENT EXISTS 

4466 011760 012700 172300 MOV #KIPDRO,RO ‘MOVE ADDRESS OF 1ST MM REGISTER TO RO 

4467 011764 012701 0 MOV #16.,R1 :DO ALL 16 POR'S 

4468 011770 012737 012010 000004 MOV #4$, TOVECT : TIMEOUTS TO 4$ 

4469 011776 012720 077406 3$: MOV #77406,(RO)+ | :ENABLE THE PDR PAGE | 
4470 012002 005301 DEC R1 :DECREMENT LOOP COUNTER AND 

4471 012004 001374 BNE aH ‘BRANCH BACK IF NOT DONE 
4472 012006 000403 BR 5$ *BRANCH OVER STACK CORRECTION 

4473 012010 022626 4$: CMP (SP) +, (SP)+ [CLEAN STACK AFTER INTERRUPT 

4474 012012 012700 172340 MOV #KIPARO,RO ‘POINT RO TO THE 1ST 

4475 012016 012703 000002 5$: MOV #2,R3 :DO 2 SETS OF PAR'S | 
4476 012022 012737 012062 000004 MOV #8$,4 ‘TIMEOUTS TO 8$ 

4477 012030 005002 6$: CLR R2 ‘START WITH LOAD OF ZERO 
4478 012032 012701 000007 MOV #7,R1 :D0 7 REGIST ERS | 
479 012036 010220 7$: MOV R2 (RO) + [LOAD THE PAR 
4480 012040 662702 000200 ADD #e 200, ‘PUT R2 AT NEXT VALUE | 
4481 012044 005301 DEC [DECREMENT AND 

482 012046 001373 BNE oH BRANCH SBACK IF NOT DONE | 
4483 012050 012720 177600 MOV #177600,(RO)+  :SETUP PAR? | 
484 012 005303 DEC R3 [DECREMENT AND 

4485 012056 001364 BNE 6$ [BRANCH BACK IF KDPAR*S NOT LOADED 

012 000401 BR 9$ *BRANCH OVER STACK CORRECTION 
4487 012062 022626 8$: CMP (SP) +, (SP)+ [CLEAN STACK AFTER TIMEOUT 
012 012737 012232 000004 9$: MOV #10$, TOVECT : TIMEOUT VECTOR TO 10$ :DPMO01 
4489 012072 013737 000250 002676 MOV MMVECT, OLDPC2 sSAVE MEMORY MANAGEMENT VECTOR 
90 012100 012737 012232 000250 MOV #108, MM sMEMORY MANAGEMENT VECTOR TO 10S 

4491 012106 013737 000252 002700 MOV MMPS OLDPS2 [SAVE MEMORY MANAGEMENT PS 

4492 012114 012737 000340 000252 MOV PLEVEL? MAPS :MEMORY MANAGEMENT PS TO PRIORITY 7 

4493 012122 005237 177572 INC MMR [TURN ON MEMORY MANAGEMENT 

4494 012126 012737 002400 172344 MOV #2400,KIPAR2 :SET UP KIPAR2 TO ACCESS LOCATION 240000+BITS 12-0 OF NOCARE 
4495 012134 012737 002400 172364 MOV #2400. KDPAR2 SET UP KDPARG TO ACCESS LOCATION 240000+B1TS 12-0 OF NOCARE 
4496 012142 005737 056104 TST NOCARE [SEE IF BITS 12-0 OF NOCARE ADRS +240000 EXISTS 

4497 012146 152737 000001 002713 BISB ITO.MEMGMT+1 SET BIT 0 OF CPPER BYTE OF MEMGMT IF IT DOES 

4498 012154 012737 400 172344 MOV #2400, RIPARS sSET UP KIPAR2 TO ACCESS LOCATION 440000+BITS 12-0 OF NOCARE 
4499 012162 012737 004400 172364 MOV #4400,KDPAR2 §:SET UP KDPAR2 TO ACCESS LOCATION 440000+BITS 12-0 OF NOCARE 
4500 012170 005737 056104 TST NOCARE [SEE IF BITS 12-0 OF NOCARE #440000 EXISTS 

4501 012174 152737 000002 002713 B1SB 1,MEMGMT+1 :SET BIT 1 OF UPPER BYTE OF ME IF IT DOES 

4502 012202 012737 00 172344 MOV 76400. *KIPAR2 :SET UP KIPAR2 TO ACCESS LOCATION 640000+BITS 12-0 OF NOCARE 
4503 012210 012737 400 172364 MOV #6400. “KDPAR2 SET UP KDPAR2 TO ACCESS LOCATION 640000+BITS 12-0 OF NOCARE 
4504 012216 005737 056104 TST 7SEE IF BITS 12-0 OF NOCARE ADRS +640000 EXISTS 

4505 012222 152737 000004 002713 BISB #3 TS MEMGMT+1 [SET BIT 2 OF UPPER BYTc OF MEMGMT IF IT DOES 

4506 012230 000407 BR SBRANCH OVER STACK COR TION | 

4507 012232 027627 000000 10$: CMP @0(SP),(PC)+ | :COMPARE NEXT INSTRUCT ION WITH 

4508 012236 005737 TST a(PC)+ [TEST MODE 3 INSTRUCTION (THIS ts NOT EXECUTED) 

4509 012240 001402 BEQ 11$ *BRANCH TO RETURN IF SO 
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$219 012242 012250 


11$: 
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172344 
172364 
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CONS OO 
sss oO 
—_ 
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7 
? 
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000001 
002546 
002544 
002544 
001416 
002716 


041151 


002544 


64 
12370 033737 001466 


4536 012400 
4537 012404 
4538 & 


4542 012422 104401 
4543 


4544 oieeee 
4545 30 011420 

002544 1$: 
000002 002546 
001422 

4349 012452 


4351 012454 
2460 
45 


Sw 
ue 
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002544 2$: 
002546 


oe 8 
_ 
WG 
Wo 
~InD 
oS 
oS 
NM 
w 
& 
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60 
456 


45 
5 
5 
5 
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5 
5 
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6 
6 
564 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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4 25 
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& 25 
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001474 002720 
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BEGIN1: 
TSTDEV: 


MACRO M1113 02-NOV-81 16:08 PAGE §s-/ 


#12$, (SP) 


MMRO 
#125$, H 434 
#400 ,KIPAR2 
#400, KDPARD 
126$ 


(SP) +, (SP)+ 


OLDPS2 , MMPS 
OLDPC2.MMVECT 
14$ 


#4,SP 
OLBPS1, TMOPSW 
ye » TOVECT 


#UBHANG , = (SP) 
MIA 


20 
PREPARE ADDRESSES AN AND VECTORS F 


#81T0,DEVM 
TABINX 

| amaeceamae 
DEVMSK 

1$ 

SPASS 

BEGIN1 
$PASS2 


BEGIN1 
eNODVPR 


START1 

DEVMSK 

#2, TABINX 
SUNIT 

TSTDEV 

DEVMSK 

TABINX ,R2 

#2, TABINX 
REGADR(R2) ,RO 
#WCR,R1 

#4,R 

RO,(R1)+ 
#2,R0 

3$ 
VECADR(R2) ,RO 
RO,(R1)+ 


RO, ( 
SD6U0(R2), DDW 
DDW,DRLEV 


SEQUENCE 84 

FUDGE RETURN TO EXIT IF NOT 
; RETURN 

URN OFF MEMORY MANAGEMENT 
TIMEOUT TO 125$ = DPMO01 
sRESTORE PAGE § ;DPMO01 
sRESTORE P :DPMO01 

CH OVER STACK CLEANUP 3DPMO001 

CLEANUP T TACK ;DPMO01 
RESTORE MEMORY MANAGEMENT PS 
2RESTORE Y GEMENT VECTOR 
sBRANCH OVER STACK wep tht 

CORRECT STACK AFTER TIMEOUT 

RESTORE TIMEOUT 


zR PS 
RESTORE TIMEOUT VECTOR 
TY PE: ‘*(*X) INHIBITS EOP'S, 
HANG? RESTART AT ADDRESS ' 


MOVE ADDRESS OF HANG ROUTINE 10. STACK 

GO TYPE on ADDRESS IN OCTAL 

: RLDO DR11 GEN NPR = tg LOGIC TEST’ 
: EOP. MSG WILL PRINT EVERY :DPMO01 
i a -pearerateaeaae ;DPMCO1 


“- FOR ERROR SUMMARY" 


:SET UP BIT MASK _TO TEST SDEVM FOR DEVICES 
:CLEAR LOCATION TO STORE TABLE OFFSETS 
7 SEE IF DEVICE IS TO BE TESTED 


2BR, I 
sSEE IF BIT 15 IS SET 
;BRANCH TO CONTINUE i NOT pide 
sSEE IF THIS IS THE FIRST PASS 
sBRANCH TO REINITIALIZE THE DEVMSK LOCATION IF NOT 
sSEE IF THIS IS THE FIRST PASS 
;BRANCH TO REINITIALIZE THE DEVMSK LOCATION IF NOT 
; : "NO DEVICES RECOGNIZED - DIAGNOSTIC CANNOT BE RUN‘ 
"RESTART AT 204 IF A DEVICE IS PRESENT’ 
ZFATAL ERROR - HALT H 

START1 TO CHECK AGAIN FOR A MODULE 
SHIFT MASK TO ‘gd SDEVM BIT 


rf | UNIT NUMBER 

:G0 TEST “NEXT BIT OF DEVICE MAP 

UPDATE DEVICE MAP TEST MASK 

;MOVE TABLE OFFSET TO R2 

[UPDATE TABLE OFFSET FOR NEXT DEVICE 

;PUT UUT ADDRES 

POINT R1 i STORAGE AREA FOR UUT ADDRESSES 


SPER WUT VECT 


RTO TABLE AREA 
TO PROPER DEVICE DESCRIPTOR WORD 
“MOVE THE WORD TO THE DRLEV LOCATION 


bee ener cee ee rae ee 





CZDRLDO=DR11 GEN NPR_INTFC 
PREPARE ADDRESSES AND VECTORS FOR UUT 


177437 002552 
032555 


002706 


4578 
4579 012600 005327 000000 
cent 012604 001375 


H 7 
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SEQUENCE 85 
BIC —-#177437.DRLEV STRIP ALL BITS EXCEPT BR LEVEL 
REINIT: CLRB CHARCT CLEAR THE CHARACTER LOCATION OF ANY CHARACTER 
JSR PC, BPINIT /G0 RESET THE "+2" AND "RPT LOCATIONS 
JSR. PC, CLENUP i SUBROUTINE To CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
TSTB  —- EOPLOC SEE IF OX 18 ENABLED (1S THE PRINTER DISABLED) 
BNE TTI :G0 DO TEST IF 


: adegecacennebsonenimenbtanticetartestenetecesenapennnebenenel 
* atte (12a terme rin frase an tet BECAUSE OF THE SPEED OF THIS DIAG- 
* NOSTIC_ (.125 SECOND FOR 1 peasy NO ERRORS), SOME VIDEO TERMINALS PRINT ERRONEOUS 
* CHARACTER(S) WITH THE EOP MESSAGE DUE TO THE RESET gee IN TEST 4. THIS WAIT 
* LOOP ENABLES THOSE TERMINALS TO ‘CATCH UP" BEFORE ITS EXECUTION. 

titi i ite iii iste ti ita tila iii itil iciiilisiiiiiieiiititititis 
DEC + sDECREMENT A LOCATION TO KILL TIME 

BRANCH BACK UNTIL ZERO AGAIN 


Oe .. NR. Leer nA. Ste. A... 


IMAIN PROGRAM =~ DEVICE TESTS 


° 
FLARE AREA EAEEEREEREEEE AREER EERE EREREREERERERREREEEEEKEREREE 


a. 


CZDRLDO-DR11 GEN NPR_ INTFC 
TEST #1 = CAN ALL DR11 REG BE ADDRESSED WITHOUT ERROR 


012644 
004000 


012634 


167566 
001312 
025622 


002672 
002674 


002674 
002672 


000006 
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043 


000004 
002550 


002550 
002550 
002550 
002550 





SEQUENCE 86 


- SBTTL TEST #1 = CAN ALL DR11 REG BE ADDRESSED WITHOUT ERROR? 


J RARER ARAEREREREREREEEEEREEEAREEEEEREREERREEREREEREREREEERERREEE 


SRTEST 1 CAN ALL DR11 REG BE ADDRESSED WITHOUT ERROR? 

ie 

3* THIS TEST INSURES THAT THE CSR, BAR, BDR AND WCR REGISTERS CAN BE 

- ye omgy FOR THIS DEVICE. IF NOT, THE REST OF THE DIAGNOSTIC CANNOT 
tt 
 -- aademaameaaa ean maamaanaareaemanemeees 

ST1: 


SCOPE 
MOV 


1001$ 
TYPE 1000$ 


BR 001$ 
1000$: rely /T # 1/<CRLF> 


1001$: 

999$: CLR SERTTL 
MOV #1$,BUSERR 
MOV WCR,DREG 
TST awCR 
MOV BAR , DREG 
TST @BAR 
MOV CSR,DREG 
TST 
MOV BDR ,DREG 
TST R 
MOV DRINV,DREG 
TST aDRINV 
TST SERTTL 
BEQ 2s 
JMP ENDEV 

1$: MOV (SP)+,OLDPC1 

Vv (SP)+,OLDPS1 

ERROR 1 


+ 
MOV OLDPS1,-(SP) 
MOV OLDPC1,-(SP) 


R 
000004 2$: MOV #6,BUSERR 





#999$,SLPERR 
BIT #51711 .aSuR 


sPROCESS LOOPING AND TEST NUMBER INCREMENT 
;SET LOOP ON ERROR TO 999S 

ie TEST TO SEE IF TEST NUMBER TRACER ENABLED 

:@& BRANCH IF NOT 

88 TYPE: ‘'T # 1° 


:@& GET OVER ASCII 
3@& THE ASCII MESSAGE 


CLEAR THE ERROR TOTAL = NEW PASS 
:CPU_ERROR VECTOR TO 1 


= SAVE ADDRESS FOR POSSIBLE ERROR TYPING 
crt REGISTER 

7SAVE ADDRESS FOR POSSIBLE ERROR TYPING 

ZACCESS. REGISTER 

:SAVE ADDRESS FOR POSSIBLE ERROR TYPING 

ACCESS REGISTER 

zSAVE ADDRESS FOR POSSIBLE ERROR TYPING 

SACCESS REGISTE 

2 SAV VE ADDRESS FOR POSSIBLE ERROR TYPING 
sACCESS REGISTER 

SEE IF THERE WERE ANY ERRORS 


CH TO CONTINUE IF NONE 
:60 TO END OF eae ROUTINE = FATAL ERRORS 
zSAVE PC OF TRAP FOR ERROR PRINTOUT 
7SAVE PS FOR RESTORATION AFTER ERROR CALL 
;CANNOT ACCESS DR11 REGISTER 
PUT PS BACK ON STACK 

PC ea ON STACK 
RETURN TO PROGRAM 
;RESTORE #6 TO BUS ERROR 





CZDRLDO-DR11 GEN NPR INTFC 
TEST #2 = CHECK B OR W STATUS IS AS EXPECTED 


eoet TEST #2 = CHECK B OR W STATUS IS AS EXPECTED 
Perit iit iii t ii ities silat ii ititiaitiiicitititititititi tit it yy 


CHECK B OR W STATUS IS AS EXPECTED 


THIS TEST INSURES THAT THE B OR W STATUS IN THE DEVICE DESCRIPTOR 
WORD MATCHES WHAT THE EIR SAYS THE MODULE IS. 


7 ig ati geile ee a aa tal 






013042 
004000 


013032 
040 


177776 
001362 


000001 
002610 


J 7 
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001$ 
/T # 2/<CRLF> 


SEQUENCE 


sPROCESS LOOPING 7 TEST NUMBER INCREMENT 
SET _LOOP_ON ERR 

:@& TEST TO SEE IF Test NUMBER TRACER ENABLED 
:@& BRANCH IF NOT 


: tee £ OF ow 


78& TY 
3@& GET OVER ASCII 
3@& THE ASCII MESSAGE 


:GO TO CSR 
FORCE TO BE ue 
ATTEMPT EIR READ 
{MASK OFF ALL BITS io al BIT 0 
:GET DEVICE DESCRIPTOR WORD 


ANCH_IF IT IS 
CLEAR TH 
:GO_ TEST a BIT 
SET THE B 


IT 
3B OR W STATE AS EXPECTED? 
BRANCH IF OK 
;DR11-B OR W MODE INCORRECT (0=8, 1=W) 





7 
CZDRLDO=-DR11 GEN NPR_INTFC MACRO M1113 Peers! 16:08 PAGE 51 SEQUENCE 88 
TEST #3 = CHECK CSR BIT PATTERNS WITH MAINT BIT S 


4643 -SBTTL TEST #3 = CHECK CSR BIT PATTERNS WITH MAINT BIT SET 
FRAAAAAARAAERARARAEERAEEEEEEEAEAERAEEEEEEAERERERERREAREREREREEEREKE 
TEST 3 CHECK CSR BIT PATTERNS WITH MAINT BIT SET 
e THIS TEST SETS ALL POSSIBLE COMB INAT 1ONS OF SET BITS IN THE CSR WITH 
tt THE MAINTENANCE BIT SET, AND COMPARES THE RECEIVED CSR CONTENTS WITH 
te THAT OF THE EXPECTED PATTERNS IN THE "MAISET® TABLE. 
** 
*: REAEREKRAAAERAAAAEAAAARERAEAARAKREKARAAAARERARARAEARARAKRAEAAARAAREREEERE 
013134 S13: 
013134 000004 SCOPE ;PROCESS LOOPING AND TEST NUMBER INCREMENT 
013136 012737 013246 001310 MOV #999$. SLPERR SET LOOP ON ERROR TO 999$ 
013144 032777 004000 166166 BIT #BITIi,aSWR ee TEST TO SEE IF test NUMBER TRACER ENABLED 
013152 001407 BEQ 1001$ :@& BRANCH IF NOT 
013154 104401 013162 TYPE 1000$ 788 TYPE: ‘'T ‘ 3 
013160 000404 BR 001$ :8& GET OVER ASCII 
013162 124 040 043 1000S: -ASCIZ /T # 3/<CRLF> 388 THE ASCII MESSAGE 
013172 1001$: 
4644 013172 004737 003646 JSR PC, CLENUP : SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
4645 013176 012737 000200 001362 MOV #RYSTMP1 [MOVE READY BIT TO $TMP 
4646 013204 032737 000004 002720 BIT #81T2,DDW :TEST TO SEE IF CABLE Ws IN 
4647 013212 001003 BNE 1$ [BRANCH AROUND NON-CABLE SETUP IF IN 
4648 013214 052737 127000 001362 BIS #127000,$TMP1 SET THE BITS TO BE EXPECTED IN $TMP1 
4649 013222 012701 010220 1$: MOV WMAISET,R1 [MOVE ADDRESS OF EXPECTED PATTERNS TO R1 
4650 013226 012702 010000 MOV #MA,R2 SSTART WITH JUST THE MAINTENANCE BIT 
4651 013232 005037 002714 CLR ERRCNT [CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +202 
4652 013236 012700 000002 MOV #2,R0 :D0 F: SETS OF 200 PATTLRNS 
4653 013242 012703 000200 2$: MOV #200,R3 E 200 TO THE LOOP COUNTER 
4654 013246 052777 010000 167246 999$: BIS WMA, aCSR | eer mA NTENANCE AND 
4655 013254 005077 167242 CLR acsR = CLEAR 10 DO AN INIT 
4656 013260 017737 167236 002560 MOV aCSR,RCSR :MOVE RECEIVED DATA TO RCSR 
4657 013266 023737 001362 002560 CMP STMP1 .RCSR TMAKE SURE EXPECTED DATA CAME UP 
4658 013274 001404 BEQ sBRANCH IF SO 
4659 013276 013737 001362 002572 MOV STMP1,ECSR [MOVE EXPECTED DATA TO ECSR 
4660 013304 104032 ERROR +32 [CSR 1S WRONG 
4661 01 012777 177777 167202 3S: MOV #1, awCR “MOVE 1 WORD COUNT TO WCR IN CASE OF IE ENABLED 
4662 013314 012777 056104 167176 MOV INOCARE. @BAR :MOVE A NOT-CARE ADDRESS TO BAR FOR SAME REASON 
4663 013322 010277 167174 MOV R2,aCSR ‘SET THE PARTICULAR FUNCTION BITS IN CSR 
4664 013326 017737 167170 002560 MOV acSR,RCSR sMOVE RECEIVED DATA TO RCSR 
4665 013334 011137 002572 MOV (R1).ECSR ZMOVE EXPECTED DATA TO ECSR 
4666 013340 023737 002572 002560 CMP ECSR.RCSR ; COMPARE EXPECTED WITH RECEIVED 
4667 013346 001425 BEQ CH IF OK 
4668 013350 012737 000401 013360 MOV #CY +O 4$ :REESTABLISH TEST PATTERN 
4669 013356 040227 BIC 2, (PCS+ [SEE IF BOTH CYCLE AND GO WERE SET 
4670 013360 000401 4$: WORD tes [LOCATION TO HOLD BOTH CYCLE AND GO BITS 
4671 015362 001013 BNE $ ‘BRANCH TO ERROR ONLY IF CYCLE AND GO WERE SET 
4672 013364 032737 000060 002572 BIT #X6+X7,ECSR [SEE IF EITHER XBA16 OR XBAI 
4673 013372 001407 BEQ 6$ :BRANCH TO ERROR IF BOTH ARE CLEAR 
4674 013374 052737 140000 002572 5S: BIS #ER+NX,ECSR :SET THE ERROR AND NEX BITS - EXPECT THEM TO SET 
4675 013402 023737 002560 002572 CMP RCSR,ECSR sNOW SEE IF DATA MATCHES 
4676 013410 001415 BEQ 10$ [BRANCH AROUND ERROR IF IT DOES 
4677 013412 010237 002536 6$: MOV R2,BUT [MOVE THE BITS SET INTO CSR TO THE BUT LOCATION 
4678 013416 104202 ERROR +26 :CSR PATTERN NOT CORRECT 
4679 013420 000411 BR 10$ CH AROUND MM TESTS 
4680 013422 012737 000401 013432 7S: MOV #CY+G0,8$ “REESTABLISH TEST PATTERN 
4681 013430 040227 BIC R2, (PCS+ :SEE IF BOTH CYCLE AND GO WERE SET 





foe =DR11 GEN NPR_INTFC 
ECK CSR BIT PATTERNS WITH MAINT BIT S 


000401 
001003 
004737 
000754 


001266 
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CY+G0 
0$ 
PC, TSTMM 
5$ 
#2,R1 
R 


999$ 
#200,R2 
RO 

2$ 


: LOCATION TO HOLD BOTH CYCLE AND GO BITS 
ANCH AROUND MEM MGMT TEST IF EITHER OR BOTH WERE CLEAR 
MANAGEMENT EXISTENCE 
t1F ETORN Nos 0 BACK TO SET EXPECTED DATA 
‘INCREMENT R1 "5 Ne EXPECTED PATTERN 
S INCREMENT THE PATTERN 


H BA NOT DON 
0500 TO_PATTERN LOCATION 
SOE CREMENT THE LOOP COUNTER AND 
BRANCH BACK IF 2ND OCTAL GROUP NOT DONE 


————— ee Se _ — 


| GEDRLDO-DRI1 GEN NPR INTFC MACRO M1113 er cays + — 08 PAGE 92” SEQUENCE 90 
TEST #4 = CHECK WCR, BAR @ BDR, & RESET CLRS 4 DEV REG 


6699 -SBTTL TEST #4 = CHECK WCR, BAR & BDR, & RESET CLAS 4 DEV REGS 
i FRAAAAAEAAAAAAAARAAAEAEAAAAAAARAARARAEEAAAAAAEREARAAAEREERAEAEREEE 
tS TEST 4 CHECK WCR, BAR & BDR, & RESET CLRS 4 DEV REGS 
| ie 
te THIS TEST INSURES THAT THE WCR, BAR AND BDR REGISTER BITS CAN ALL BE 
* SET, AND THAT A RESET CLEARS ALL 3 PLUS THE CSR REGISTER. 
j ** 
| *; RRRAARAAAARAARAARARARAAETAAAEARARARAERRAARAREERKRERARAARRAARAAERAEEEE 
013466 TST4: 
013466 000004 SCOPE PROCESS LOOPING AND TEST NUMBER INCREMENT 
013470 012737 013524 001310 MOV #999$, SLPERR LOOP ON ERROR TO 9 
013476 032777 004000 165634 BIT #B1T1 11 .asur Ae TEST TO SEE IF TEST NUMBER TRACER ENABLED 
013504 001407 BEQ 1001$ :@& BRANCH IF NOT 
013506 104401 013514 TYPE 1000$ [8 TYPE: "T # 4 
013512 000404 BR 1001$ [8&8 GET OVER ASCII 
013514 124 040 043 10008: -ASCI7 /1 # 4/<CRLF> 88 THE ASCII MESSAGE 
013524 10018: 
4700 013524 012777 610000 166770 999%: Mov WMA, aCSR :SET THE MAINTENANCE BIT AND 
4701 013532 005077 166764 CLR acsr [CLEAR TO DO AN INIT 
4702 013536 012777 010000 166756 MOV WMA, acSR [DO THIS TEST IN MAINTENANCE MODE :DPM001 
4703 013544 012777 177777 166744 MOV #~1,awWCR TALL ONES TO WCR 
4704 013552 017737 166740 002570 MOV awCR,RWCR :MOvE RECEIVED DATA TO RWCR 
4705 013560 022737 177777 002570 CMP #-1,RWCR ;SEE IF DATA WAS LOADED PROPERLY 
4706 013566 001423 BEQ 4$ “BRANCH IF OK 
4707 013570 012737 013600 001310 MOV #1$,$LPERR [MOVE NEW LOOP ON ERROR LOCATION TO $LPERR 
4708 013576 000412 BR 2$ BRANCH OVER LOOP SETUP 
4709 013600 012777 177777 166710 1S: MOV #-1,awWCR TALL ONES TO WCR 
4710 013606 017737 166704 002570 MOV @WCR,RWCR “MOVE RECEIVED DATA TO RWCR 
4711 013614 022737 177777 002570 CMP #-1,RWCR ;SEE IF DATA WAS LOADED PROPERLY 
4712 013622 001401 BEQ 3$ [BRANCH IF OK 
4713 013624 104010 2$: ERROR +10 TATTEMPT TO SET ALL WCR BITS FAILED 
4714 013626 032777 001000 165504 3$: BIT #B1T9. aSwR [SEE IF WE SHOULD LOOP BACK 
4715 013634 001361 BNE 1$ ‘BRANCH BACK 0 
4716 013636 052777 000001 166656 4$: BIS #G0,acsR :SET GO TO CLEAR READY TO PREPARE TO SET BAR BIT 0 
4717 013644 017737 166652 002560 MOV acSR,RCSR SREAD CSR TO SET BIT O OF BAR :DPMO01 
4718 013652 012777 177777 166640 MOV #~-1,aBAR :ALL ONES TO BAR 
4719 013660 017737 166634 002566 MOV @BAR , RBAR [MOVE RECEIVED DATA TO RBAR 
4720 013666 022737 177777 002566 CMP #~-1,RBAR SEE IF ALL BITS WERE SET 
4721 013674 001431 BEQ 8$ BRANCH IF ox. 
4722 013676 012737 013714 001310 MOV #5$.$LPERR MOVE NEW LOOP ON ERROR LOCATION TO $LPERR 
4723 013706 012737 177777 002600 MOV #1, EBAR ;MOVE EXPECTED DATA TO EBAR 
4726 013712 000415 BR 6$ ANCH OVER LOOP SETUP 
4725 013714 017737 166602 002560 5$: MOV aCSR,RCSR ZACCESS CSR TO SET BIT O OF BAR 
4726 013722 012777 177777 166570 MOV #~-1,@BAR L ONES TO BAR 
4727 013730 017737 166564 002566 MOV @BAR , RBAR MOVE RECEIVED DATA TO RBAR 
4728 013736 022737 177777 002566 CMP #~-1,RBAR [SEE IF ALL BITS WERE SET 
4729 013744 001401 BEQ 7$ ‘BRANCH if ox 
4730 013746 104012 6$: ERROR +12 sATTEMPT TO SET ALL BAR BITS TO 1 FAILED 
4731 913750 032777 001000 165362 7S: BIT #B1T9, aSwR [SEE IF WE SHOULD LOOP BACK 
4732 013756 001356 BNE 5$ {BRANCH BACK IF. SO 
4733 013760 012777 177777 166536 8%: MOV #-1,aBDR ALL ONES TO BDR 
4734 013766 017737 166532 002564 MOV @BDR,RBDR *MOVE RECEIVED DATA TO RADR 
4735 013774 022737 177777 002564 CMP #-1,RBDR [SEE IF DATA WAS LOADED PROPERLY 
4736 014002 001423 BEO 12$ [BRANCH IF OK 
4737 014004 012737 014102 001310 MOV #13$, SLPERR [MOVE NEW LOOP ON ERROR LOCATION TO SLPERR 
| 6738 014012 000412 BR 10$ ‘BRANCH OVER LOOP SETUP 
| 
| 


ae 


CZDRLDO=DR11 GEN NPR INTFC 
TEST #4 = CHECK WCR, BAR & BDR, 


4739 014014 012777 177777 

4740 des 5: 017737 166476 

4741 014030 022737 177777 

4742 014036 001401 

4743 014040 104027 

4744 014042 032777 001000 

4745 014050 001361 

4746 014052 012777 010576 

4747 014060 000005 

4748 014062 012737 013524 

4749 014070 017737 166422 

4750 014076 001401 

4751 014100 104007 

4752 014102 017737 166412 

4753 014110 001403 

4754 014112 005037 002600 

4755 014116 104011 

4756 014120 017737 166376 

4757 014126 012737 000200 

4758 014134 004737 003670 

4759 014140 023737 002572 

4760 014146 001401 

4761 014150 104032 

4762 014152 052777 010060 

of? 014160 017737 166340 
4764 014166 001401 

4765 014170 104026 
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& RESET CLRS 4 DEV REGS 
166502 9$: MOV #-1,aBDR 
002564 MOV wy 
002566 CMP #-1,RBER 
BEQ 11$ 
10$: ERROR +27 
165270 11$: dt #B1T9,aSwR 
166442 128: MOV #10576,aCSR 
RESET 
001310 MOV #999$ ,SLPERR 
002570 MOV awCR,RWCR 
BEQ 
ERROR +7 
002566 13$: MOV @BAR ,RBAR 
; BEQ 14$ 
CLR EBAR 
ERROR +11 
002560 14$: MOV acSR,RCSR 
002572 MOV #RYECSR 
JSR PC, CHKCAB 
002560 CMP ECSR, RCSR 
BEQ 15$ 
ERROR +32 
166342 15%: BIS #MA ,aCSR 
002564 MOV @BDR ,RBDR 
BEQ TST5 
ERROR +26 


SEQUENCE 


sALL_ONES TO BDR 
;MOVE RECEIVED DATA TO RBDR 
SEE IF DATA WAS LOADED PROPERLY 


BRANCH IF Ok 
ALL BDR BITS ARE NOT S 
SEE IF WE SHOULD LOOP BACK 
;BRANCH BACK IF SO 
+ SET ALL CSR WRITEABLE BITS 
RESET THE WORLD OF ITS TROUBLES = HOPEFULLY 
S 1 ERROR LOCATION 


AR 
IF WCR WAS CLEARED 
SRESET FAILED TO CLEAR WCR 
:MOVE RECEIVED DATA TO RBAR 
; CH IF WAS CLEAR 


CSR 

:GO CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY 
3SEE IF EXPECTED DATA WAS RECEIVED 
7BRANCH IF IT WAS 
aoe | IS NOT THE ONLY BIT SET 

T MODE (SO THAT IDR GETS ODR CONTENTS) 
MOVE CONTENTS OF BDR TO RBDR 
ZBRANCH IF IT CORRECTLY REMAINS ZERO 
;BDR IS NOT CLEAR 


91 


® 


mMn —— 
Orn mo 
ooooo 
— ot ot I CD 
—NNINMINININUV! 
Ww 


SSR 


RRARNVROOWE 
o- 
SR 


escsessssssessse?? ee ed ceed ed ed 
SxSllssS 


WWW 
—— 

en 
Nae 


—-Sooo— 
oo=-—S 
o> 
S 


004000 
014212 
040 


166216 
002600 





165136 


043 


166262 


002570 


002566 


002560 
002572 


002560 


166146 
002564 


TFC MACRO M1113 when 16:08 PAGE §3 ° 
1 CLEARS CSR, WCR, BDR AND 


seth TEST #5 = DEVICE INIT CLEARS CSR, WCR, BDR AND BAR 


FRAAAAAEAAARAAARAAAAAAAEEAEAEAAARARAAEAAAERERAEARERARERAEAEARREEEEREE 


SEQUENCE 92 


DEVICE INIT CLEARS CSR, WCR, BDR AND BAR 


oe 


1001 
1000$ 


/T # 5/<CRLF> 


mi0sse SCSR 
#MA,acSR 


awCR,RWCR 
1$ 


+3 

@BAR ,RBAR 
2s 

EBAR 

+4 
aCSR,RCSR 
#RY.ECSR 
PC, CHKCAB 
ECSR,RCSR 
3$ 

+6 

#MA ,aCSR 
@BDR ,RBDR 
TST6 

+5 





THIS TEST INSURES THAT DEVICE INIT CLEARS THE CSR, WCR, BDR AND BAR. 


ee ee 


3@@ TEST TO SEE IF TEST NUMBER TRACER ENABLED 
:8& i IF NOT 


YPE: "'T # 5°' 


788 eT OVER ASCII 


7@& THE ASCII MESSAGE 


sFORCE ACCESS TO CSR 
ALL ONES TO WCR 
at ONES TO on 


L ONES TO 
SET ALL URITEAALE BITS IN by CSR 
EAR THE MAINT BIT TO DO AN INIT 
“MOVE RECEIVED CONTENTS TO RWCR 
;BRANCH IF WCR WAS CLEARED 
zINIT FAILED TO CLEAR WCR 
;MOVE RECEIVED CONTENTS TO RBAR 
CH_IF BAR WAS CLEARED 
7CLEAR EXPECTED LOCATION 
: INIT FAILED TO CLEAR BAR 
;MOVE RECEIVED DATA TO RCSR 


“Ww BITS 
:GO BACK INTO MAINT MODE (SO THAT IDR GETS ODR CONTENTS) 
;MOVE RECEIVED CONTENTS TO RBDR 

ANCH IF IT WAS CLEARED 
INIT FAILED TO CLEAR BDR 





8 
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TEST #6 = BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS 


4804 .SBITL TEST #6 = BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS 
TTITITIIITITITITITITITI ITIL TITTLE LLL T ELLE LEE 
T*TEST 6 BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS 
te 
* THIS TEST RUNS 7 BIT PATTERNS *HROUGH THE WCR, BDR AND BAR TO CHECK FOR 
3* Y STUCK OR SHORTED PINS. LOCATION SLPERR Rg NOT SET UP A AT THE START 
* SINCE A DIFFERENT METHOD OF ERROR LOOPING IS DONE. WHEN AN ERROR IS 
3* DETERMINED TO EXIST, THE $LPERR IS INITIALIZED TO A ROUTINE SPECIFI- 
* CALLY WRITTEN FOR THAT PARTICULAR ERROR TO CREATE A VERY TIGHT LOOP. 
** 
- REREAEKRERERARERARAERAEEEERAERAAARAAARAARAAAAAAAEEAAAAEAAAEEAEEEE 
014366 000004 TST6: SCOPE 
014370 032777 004000 164742 BIT #B1T11,aSWR :@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
014376 001407 BEQ 1001$ 88 BRANCH IF NOT 
014400 104401 014406 TYPE 1000$ :@& TYPE: "T # 6 
014404 000404 BR 1001$ '@% GET OVER ASCII 
014406 124 040 043 1000S: -ASCIZ /T # 6/<CRLF> :8@ THE ASCII MESSAGE 
014416 1001$: 
4805 014416 004737 003646 JSR PC, CLENUP ;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
4806 014422 005037 002714 CLR ERRCNT [CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +204 
4807 014426 012701 007202 MOV #PATRNS ,R1 [MOVE ADD RESS OF BIT PATTERNS TO R1 
4808 014432 012702 000007 MOV #7 ,R2 [DO 7 PATTERNS 
4809 014436 012777 010000 166056 1S: MOV #MA,aCSR 360 TO MAINTENANCE MODE & SET GO TO DISABLE BAR BIT 0 
4810 014444 011177 166054 MOV (R15 ,aBDR :MOVE THE DATA TO BDR 
4811 014450 017737 166050 002564 MOV @BDR.RBDR :MOVE RECEIVED DATA TO RBDR 
4812 014456 021137 002564 CMP (R1) .RBDR [SEE IF EXPECTED DATA WAS RECEIVED 
4813 014462 001423 BEQ 5$ BRANCH IF $O 
4814 014464 012737 014500 001310 MOV #2$,S$LPERR :SET UP LOOP ON ERROR LOCATION 
4815 014472 011137 002576 MOV (R1),EBDR [MOVE EXPECTED DATA TO EBDR 
4816 014476 000410 BR 3$ :SKIP OVER LOOP ON ERROR SETUP 
4817 014500 011177 166020 2s: MOV (R1),@BDR ‘LOAD BIT PATTERN TO BDR 
4818 014504 017737 166014 002564 MOV @BDR.RBDR ‘MOVE RECEIVED DATA TO RBDR 
4819 014512 021137 002564 CMP (R1) .RBDR SSEE IF DATA IS OK NOW 
4820 014516 001401 BEQ 4$ ‘BRANCH OUT IF SO - OK NOW 
4821 014520 104205 3$: ERROR +205 ‘BDR PATTERN NOT CORRECT 
4822 014522 032777 001000 164610 4$: BIT #81T9, aSwR SSEE IF WE SHOULD LOOP BACK 
4823 014530 001363 BNE 2$ ‘BRANCH BACK IF SO 
4824 014532 005077 165764 5$: CLR acsr CLEAR CSR To, DO AN INIT = WCR & BAR DON'T NEED MAINT MODE 
4825 014536 011177 165754 MOV (R1) ,awCR [MOVE THE DATA TO WCR 
4826 014542 017737 165750 002570 MOV awCR.RWCR ‘MOVE RECEIVED DATA TO RWCR 
4827 014550 021137 002570 CMP (R1) .RWCR SSEE IF EXPECTED DATA WAS RECEIVED 
4828 014554 001423 BEQ ‘BRANCH IF SO 
4829 014556 012737 014572 001310 MOV #6$,SLPERR :SET UP LOOP ON ERROR LOCATION 
4830 014564 011137 002602 MOV (R15 ,EWCR [MOVE EXPECTED DATA TO EWCR 
4831 014570 000410 BR 7$ [SKIP OVER LOOP ON ERROR SETUP 
4832 014572 011177 165720 6$: MOV (R1),awCR ‘LOAD BIT PATTERN TO WCR 
4833 014576 017737 165714 002570 MOV aWCR.RWCR :MOVE RECEIVED DATA TO RWCR 
4834 014604 021137 002570 CMP (R1) .RWCR 3SEE IF DATA IS OK NOW 
4835 014610 001401 BEQ $ CH OUT IF SO - OK NOW 
4836 014612 104204 7$: ERROR +204 tWCR DATA PATTERN NOT CORRECT 
4837 014614 032777 001000 164516 8$: BIT #BIT9,aSWR [SEE IF WE SHOULD LOOP BACK 
4838 014622 001363 BNE 6$ ‘BRANCH BACK 
4839 014624 011177 165670 9$: MOV (R1) ,@BAR [MOVE THE DATA TO BAR 
4840 014630 017737 165664 002566 MOV @BAR.RBAR *MOVE RECEIVED DATA To RBAR 
4841 014636 011137 002600 MOV (R1) .EBAR sMOVE EXPECTED DATA TO EBAR 
4842 014642 042737 000001 002600 B! #8176, EBAR [DO NOT EXPECT BIT o” TO BE READ 


TEST 
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#6 - BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS 


CZDRILDO-DR11_GEN_NPR INTFC 
4843 014650 023737 002600 
4844 014656 ouiee] 

4845 014 012737 014670 
4846 014666 000410 
4847 014670 011177 165624 
4848 014674 017737 165620 
4849 014702 021137 002566 
4850 014706 001401 
4851 014710 104203 
tees 014712 032777 001000 
4853 014720 001363 
4854 014722 005721 
4855 014724 005302 
4856 014726 001243 
4857 014730 004737 003646 


002566 
001310 


002566 


164420 


11$: 
12$: 
13$: 


E »RBAR 
#10$,SLPERR 
11$ 
(R1),@BAR 
(R1) ,RBAR 
12$ 

+203 
#BIT9,aSwR 
10$ 

(R1)+ 

R2 


1$ 
PC,CLENUP 


SEQUENCE 


sSEE IF EXPECTED DATA WAS RECEIVED 
; BRANC 
ON ERROR LOCATION 
TTE BAR 
“MOVE at be DATA TO RBAR 
3 SEE IF A_IS OK NOW 
OUT IF SO = OK NOW 
BAR DATA PATTERN NOT CORRECT 
SEE IF WE SHOULD LOOP BACK 
BRANCH BACK IF SO 
7GO TO NEXT PATTERN 
;DECREMENT THE LOOP COUNTER AND 
ANCH BACK _IF NOT 


94 


BRANCH IF NOT D 
; SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 





Hates ses shits ssn sists ahs ese 
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TEST #7 = TEST CSR AND EIR BITO 


4864 .SBTTL TEST #7 = TEST CSR AND EIR BITO 
FRAAARAAAAEAEAAERAERERAERERERAEEEEAEAEERAEREREEREEREREEERREREEERREERE 
tRTEST 7 TEST CSR AND EIR BITO 
ot 
* THIS TEST INSURES THAT BIT 0 UF THE CSR IS CLEAR WHEN IN CSR MODE (BIT 
3* 15 CLEAR), AND SET WHEN IN EIR MODE (BIT 15 SET). 
** 
*: RARER AAKEKREAEEAAARAREEEEEEAARAEAAEARARARAEARAARAERAERREAAREREEEREE 
014734 S17: 
014734 000004 SCOPE zPROCESS LOOPING AND TEST NUMBER INCREMENT 
014736 012737 014772 001310 MOV 49998 SLPERR  :SET LOOP ON ERROR TO 999$ 
014744 032777 004000 164366 BIT T11,aSwR :@8 TEST TO SEE IF TEST NUMBER TRACER ENABLED 
014752 001407 BEQ 10018 :@& BRANCH IF NOT 
014754 104401 014762 TYPE 10008 :@& TYPE: ‘T #7 
014760 000404 BR {001$ 78% GET OVER ASCII 
014762 124 040 043 1000S: “ASCIZ /T # 7/<CRLF> 388% THE ASCII MESSAGE 
014772 1001$: 
4855 014772 032737 000001 002610 999$: BIT #B81T0,BORW :TEST TO SEE IF WE ARE TESTING A DR11-W 
4866 015000 001444 BEQ TST10 ‘BRANCH TO NEXT TEST IF A DR11-B 
4867 015002 005077 165514 CLR acsR ; FORCE ACCESS TO CSR 
4868 015 012737 000001 002536 MOV #81T0,BUT [MOVE BIT 0 INDICATOR TO BIT UNDER TEST LOCATION 
4869 015014 017737 165502 002560 MOV acSR.RCSR ‘MOVE CSR CONTENTS TO RCSR 
4870 015022 032737 000061 002560 BIT #B81TO,RCSR SCLEAR ALL BUT BIT 0 
4871 015030 001407 BEQ 1$ ‘BRANCH IF A ZERO $ 
4872 015032 013737 002560 002572 MOV RCSR,ECSR *MOVE CSR TO EXPECTED DATA, ECSR AND 
4873 015040 042737 000001 002572 BIC #B1TO,ECSR [CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 
4874 015046 104014 ERROR +14 :CSR BIT TEST FAILED 
4875 015050 012777 100000 165444 1S: MOV #EIR,ACSR :GO TO EIR MOD 
4876 015056 017737 165440 002562 MOV @CSR.REIR [MOVE CSR CONTENTS TO RCSR 
015064 032737 000001 002562 BIT WBITO,REIR [CLEAR ALL BUT BIT 0 
4878 015072 001007 BNE TST10 *BRANCH IF NOT A ZERO 
79 015074 013737 002562 002574 MOV REIR,EEIR =MOVE CONTENTS TO ECSR ALSO AND 
4880 015102 052737 000001 002574 BIS WBITO,EEIR [SET THE 0 BIT - EX XPECTED IT TO BE 1 
4881 015110 104015 ERROR +15 SEIR BIT TEST FAILED 


CZDRLDO-DR11_ GEN NPR_INTFC 
TEST #10 = ATTN CAN BE SET VIA FNCT2 & ERROR BIT SETS 


pete TEST #10 = ATTN CAN BE SET VIA FNCT2 & ERROR BIT SETS 


J RRARAAAERAEAAAAEERAREAEREAAEEAARRREERERAERERRREEEREREREEEEEEREEEEE 


oo SCOOCOCOOoCO 
—— 


So 
Ww 
™m 
NN 
Ww 
N 


' NNR) A So at et a a 
SS=SSSRSSsSs 
Va uNtuSe 


Sur 


So 
pad 


S 


QAooonw 


34 





015160 
004000 


015140 
040 


000001 
165336 


010260 
010200 
000004 


120000 


020004 
165214 
120000 


002560 
120000 
003670 


165154 





01310 
64210 


043 


002720 


165330 
002560 
002560 
002572 


165274 
002560 


002572 
002572 
165220 
002560 
002560 


002572 
002572 
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SEQUENCE 


ATTN CAN BE SET VIA FNCT2 & ERROR BIT SETS 


#999$ ,SLPERR 


writ. aswR 
1001$ 
1000$ 


001$ 
/T # 10/<CRLF> 


#81T0,DDW 
TST11 


#MASRY .RCSR 
#MA+RY,ECSR 
+16 
#F2,aCSR 
acSR,RCSR 
RCSR.R1 
#(B1513,R1 
#ER+AT,R1 
2$ 
RCSR.ECSR 
PC, CHKCAB 
WER*AT -ECSR 
+ 
WAT+F2,aCSR 
acSR,RCSR 
HERSAT, RCSR 


RCSR,ECSR 
#ER+AT,ECSR 
PC, CHKCAB 





;GO_ CHECK 
ser THE BITS THAT 


ts ase" INSURES THAT THE ATTN BIT (BIT 13) SETS VIA FNCT2 AND ERROR 


sPROCESS LOOPING AND TEST NUMBER INCREMENT 
OOP ON ERROR TO 


7SET L 


7&& TEST TO SEE if TEST NUMBER TRACER ENABLED 
;@& BRANCH IF 


88 GET OVER ASCII 
;@& THE ASCII MESSAGE 


sTEST TO SEE IF WE ARE bytes: A DR11-W 
Cc NEXT TEST IF A DR11-8 


H TO 
“FORCE ACCESS TO CSR 
MAINT 


3MOVE RECEIVED DATA TO RCSR 
SEE IF EXPECTED DATA WAS RECEIVED 
CH IF THEY ARE 


BRAN 
;MOVE EXPECTED DATA TO ECSR 
aad AND MAINTENANCE ARE NOT THE ONLY BITS SET IN CSR 


T2 
MOVE THE CONTENTS TO RCSR 
ZMOVE | CONTENTS TO R1 FOR BIT T 
;CLEAR ALL BUT BITS ERROR a MC FOR TEST 
AND ATTN ARE SET 


VE TO R 
'BIT TEST ATTN AND ERROR BITS TO SEE IF THEY ARE CLEAR 
SBRANCH IF ATTN IS CLEAR 
;MOVE EXPECTED DATA TO ECSR 
CLEAR THE BITS THAT WERE SUPPOSED TO BE CLEAR 
360 Sg hs CABLE beng US AND ALTER esti IF NECESSARY 
ATIN AND ERROR FAILED TO CLEAR PROPERL 
;RETURN TO CSR 


Ramesses eon SSSA 


Coooooooo 
pt a 
eer ss 
AOOon 


vi“ WN 
WW 
“I 
— 


ee 
BP 





005077 
pierre 


104025 


CZDRLDO-DR11 GEN NPR_INTFC 
TEST #11 = FNCT BIT 1 CONTROLS 


4922 


015404 
004000 
015374 

040 


000016 


001000 


006000 
001000 


DSTAT 


043 


165104 
002560 
002572 


002572 
165040 
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SEQUENCE 97 
T9 
. SBTTL TEST #11 = FNCT BIT 1 CONTROLS DSTAT BIT 9 
J RRARARERAEEREAERKERAEAEEAEEAERERAERAEAEEEEERREEREREREERERAREEEERERERE 
;#TEST 11 FNCT BIT 1 CONTROLS DSTAT BIT 9 
i THIS TEST INSURES THAT FNCT BIT 1 CONTROLS DSTAT BIT 9. 
°@ 
 \-+ paaae area sy enteneatemeeeime ecm 
ST11: 
SCOPE s;PROCESS LOOPING AND TEST NUMBER INCREMENT 
MOV #999$ ,SLPERR ZSET LOOP ON ERRO 
BIT weir ,@SWR 788 TEST TO SEE IF TEST NUMBER TRACER ENABLED 
BEQ =: 10018 :@& BRANCH IF NOT 
TYPE 1000$ 38 TYPE: ‘'T # 11°° 
001$ :@& GET OVER ASCII 
1000$: arse /T # 11/<CRLF> 388 THE ASCII MESSAGE 
1001$: 
999$: CLR ;CLR FUNCT BITS AND FORCE ACCESS TO CSR 
MOV #MA,aCSR sMAINT MODE 
MOV aCSR,RCSR sMOVE CONTENTS OF CSR TO RCSR 
MOV RCSR,ECSR sMOVE EXPECTED TO EC 
MOV ECSR,R1 sMOVE CONTENTS TO ° FOR TESTING 
BIC #CFNC,R1 ;CLEAR ALL BUT THE FNCT BITS 
BEQ 1 ‘BRANCH H IF THE FUNCTION BITS ARE CLEAR 
BIC #FNC,ECSR By THE BITS THAT SHOULD HAVE BEEN CLEAR 
ERROR +24 ;FUNCTION BIT(S) ARE NOT CLEAR 
1$: BIS #F1,aCSR SET FNCT1 
MOV @CSR,RCSR [MOVE CONTENTS OF CSR TO RCSR 
MOV RCSR,ECSR [MOVE EXPECTED DATA TO ECSR 
MOV SR,R1 sMOVE CONTENTS TO R1 FOR TEST 
BIC #CDST,R1 ;CLEAR ALL BUT BITS 9, 10 @ 11 
CMP #DSC,R1 :SEE IF DSTAT A AND B ae CLEAR &@ C IS SET 
BEQ ST12 ‘BRANCH TO NEXT TEST IF ALL CLEAR 
BIC #DAB,ECSR ;CLEAR THE DSTAT A & B BITS THAT SHOULD HAVE BEEN “LEAR 
BIS #DSC.ECSR SET THE DSTAT C BIT THAT SHOULD HAVE BEEN SET 
5 ‘DSTAT A - B OR C ARE NOT AS EXPECTED 







015532 
015532 
015534 
015542 
015550 
015552 
015556 
015566 
015570 
015570 
015574 
0 015602 
015610 
2 015616 
015622 


4966 015714 


SSSASRSRSSSSS 


MRMRWWND 
N 
Ww 
™N 


Soooo 


104025 


CZDRLDO-DR11 GEN NPR_INTFC 
TEST #12 = FNCT BIT 2 CONTROLS DSTAT BIT 10 


015570 
004000 


015560 
040 


164726 


177761 
000016 
000004 


002000 


005900 
002000 


H 
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043 


164720 
002560 
002572 


002572 


164654 
002560 
002572 


002572 
002572 


» SBTTL TEST #12 = FNCT BIT 2 CONTROLS DSTAT BIT 10 


J RAAARAEAAEREAEEERREREREEEEEERAERERERAERERAEEREREREEARERREREEEERERE 


:#TEST 12 


-* 
ST 


i 


SCOPE 
MOV 49998 SLPERR 
BIT T11,aSwR 
BEQ 100 i$ 
TYPE 1000$ 
001$ 
1000$: .ASCIZ /T # 12/<CRLF> 
1001$: 
999$: CLR acsR 
MOV #MA,aCSR 
MOV acsA,RCSR 
MOV RCSR.ECSR 
MOV ECSR.R1 
BIC #CFNC,R1 
BEQ 1 
BIC #FNC.ECSR 
ERROR +24 
1$: BIS #F2,aCSR 
MOV acSR,RCSR 
MOV RCSR.ECSR 
MOV ECSR.R1 
BIC #CDST,R1 
CMP DSB 
BEQ TST13 
BIC #DAC,ECSR 
BIS #DSB.ECSR 
ERROR +25 


FNCT BIT 2 CONTROLS DSTAT BIT 10 
THIS TEST INSURES THAT FNCT BIT 2 CONTROLS DSTAT BIT 10. 


SEERA EREAEAEEREEERAERAEKAERAAAERAAEAAEAEEARREREEEREEREEEEEE 
T12: 


sPROCESS LOOPING AND TEST NUMBER INCREMENT 
ooP RROR TO 999$ 


OVER ASCII 
ee THE ASCII MESSAGE 


7CLR FUNCT BITS AND FORCE ACCESS TO CSR 
:MAINT MODE 


;MOVE CONTENTS OF CSR TO RCSR 
;MOVE EXPECTED TO ECSR 

:MOVE CONTENTS TO R1 FOR TESTING 
CLEAR ALL BUT THE FNCT BITS 
:BRANCH ARE CLEAR 

CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR 
;FUNCTION BIT(S) ARE NOT CLEAR 

SET FNCT2 

SMOVE CONTENTS OF CSR TO RCSR 

;MOVE EXPECTED DATA TO ECSR 


;MOVE CONTENTS TO R1 FOR TEST 
CLEAR ALL BUT THE estar BITS 
IF D AND C CLEAR & B _IS SET 


LD HA 
:DSTAT A, B OR C ARE NOT AS EXPECTED 


SEQUENCE 


7 SET ON 
766 TEST CHIP id TEST NUMBER TRACER ENABLED 


98 


4972 


SERSOH 


NS 
= 
ern 


4973 
pede 


oOoooo COCOCOCO 

es i aS Ht as 

QVM MUI 
I 2 


S 
~m 
SoSsrenoeeee 


4991 016100 





wo 3 O 


WN Ww 
-~“N 
So 
— 


SN 
WW 
N 


—=\NO 
mu 
RIK 


104025 


CZDRLDO-DR11 GEN NPR_INTFC 
TEST #13 = FNCT BIT 3 CONTROLS 


015754 
004000 


015744 


004000 


003000 
004000 


DSTAT 


043 


164534 
002560 
002572 


002572 


164470 
002560 
002572 


002572 
002572 
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» SBTTL TEST #13 = FNCT BIT 3 CONTROLS DSTAT BIT 11 


FRARARAERAERAEREREAEEEEEEEERREEERERERERERRERERRAERREREEEREREREREEE 


:#TEST 13 


$113: 


1$: 


SCOPE 
M 


FNCT BIT 3 CONTROLS DSTAT BIT 11 
THIS TEST INSURES THAT FNCT BIT 3 CONTROLS DSTAT BIT 11. 


#9998 SLPERR 
rm ,@SWR 


10008 


—s 
SoS 
So 


#MA,aCSR 
@CSR,RCSR 
RCSR,ECSR 
ECSR,R1 


ei 
#FNC,ECSR 
+24 


#DSA,ECSR 
+25 


1$ 
/T # 13/<CRLF> 


SRREREKEAEAREREEEEEAEAEAEAEEEEEEEAEREEAKRERARAARAERAEERREREREEREKKEKRKEEE 


sPROCESS LOOPING AND TEST NUMBER INCREMENT 
:SET_LOOP_ON ERROR TO 999$ 


a 4 
3@& THE ASCII MESSAGE 


CLR FUNCT BITS AND FORCE ACCESS TO CSR 
INT MODE 


3MA 

sMOVE CONTENTS OF CSR TO RCSR 

;MOVE EXPECTED TO E 

:MOVE CONTENTS TO w FOR TESTING 

CLEAR ALL BUT THE FNCT BITS 

BRANCH IF THE FUNCTION BITS ARE CLEAR 

CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR 
ZFUNCTION, BIT (S) ARE NOT CLEAR 


;MOVE CONTENTS OF CSR TO RCSR 


7CL STAT BITS 
SEE IF DSTAT B AND C ARE CLEAR @ A IS SET 
:BRANCH TO NEXT TEST IF DATA OK 

CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR 
SET THE BIT THAT SHOULD HAVE BEEN SET 
:DSTAT A, B OR C ARE NOT AS EXPECTED 





SEQUENCE 


708 BRANCH IP SEE id TEST NUMBER TRACER ENABLED 


99 





CZDRLDO=DR11 GEN NPR_INTFC 
TEST #14 = EIR BLOCKS DATA XFERS FROM ODR TO I 


pete: TEST #14 = EIR BLOCKS DATA XFERS FROM ODR TO IDR 


FEAR ERREEREEEAEEEEEREEREEERERERAEAEREEREREEREREREREREERREREE 


016150 
004000 


016130 
040 


000001 
164346 


052525 
052525 
100000 


052525 
052525 
003646 
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07310 
63220 

043 
002610 


164340 


002564 
002576 
164276 


002564 
002576 


EIR BLOCKS DATA XFERS FROM ODR TO IDR 


#999$ .SLPERR 
#B1T11,aSWR 


1001$ 
1000$ 


001$ 
/T # 14/<CRLF> 


#81T0,B80RW 
TST15 

WMA. aCSR 
#52525 ,,aBDR 
@BDR,RBDR 
#52525,RBDR 
#52525, EBDR 


wen aC PBDR 
#125258. @BDR 


aBp 

#32525 ,RBDR 
#52525 ,EBDR 
PC, CLENUP 


THIS TEST INSURES THAT GOING TO EIR MODE BLOCKS DATA TRANSFERS FROM 
ODR TO IDR (ODR RECEIVES DATA WHEN WRITING TO THE BDR, AND WHEN READING 
THE BDR, THE IDR IS READ). 


eg see ae ee eee ee ee ee 


ety ton LOOPING AND TEST NUMBER INCREMENT 
ROR TO 999$ 


LOOP ON ER 


ee. TEST TO SEE IF TEST NUMBER TRACER ENABLED 
38 = IF NOT 


7% VER ASCII 
3@& THE ASCII MESSAGE 


sTEST TO SEE IF WE ARE y yt DR11-W 


ANCH TO NEXT TEST IF A 
:FORCE ACCESS TO CSR 


SET 


LT 0°S AN 
MOVE Bap iihy DATA TO RBDR 
SEE 1 — OADED PROPERLY 


‘BRANCH i mt 
;MOVE EXPECTED DATA TO EBDR 
;BDR PATTERN NOT CORRECT 


:G0 TO EIR 
MOVE Aiaiy: DATA TO = 
AND 0'S TO BOR 


ZSET ALT 1°S 


MOVE RECEIVED bee TO RBDR 
:TEST at bk PA 


CH GI 
“MOVE EXPECTED DATA 


3;BDR SHOULD NOT HAVE BEEN LOADED WITH NEW PATTERN 
;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 





SEQUENCE 100 


:SET MAINT MODE (SO ee GETS ODR CONTENTS) 


TTERN 
NAL PATTERN STILL THERE 
TO EBDR 


CZDRLDO-DR11 GEN NPR INTFC 
TEST #15 = DR11 INTERRUPTS WITH 


5025 





So 
PSS SISS SSS SS Sse 
Oo 


016330 
004000 


016320 
040 


010000 


002560 


000200 
003670 


164044 
002532 
002534 


164020 
000004 


002532 
002534 






MACRO pith 


CPU ATL 


001310 
163030 


043 
164164 
177776 
002560 
002572 


002532 


0 
164056 


002560 
164040 
164034 
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SEQUENCE 101 


» SBTTL TEST #15 = DR11 INTERRUPTS WITH CPU AT LEVEL 3 


FREER AEEEAERAEEEEEEEEERERERERERERERREEEEEEEEEREEEREEREEEREEE 


:*TEST 15 DR11 INTERRUPTS WITH CPU AT LEVEL 3 
THIS TEST_INSURES THAT THE DR11 WILL INTERRUPT WITH THE CPU PRIORITY 


® 
‘* AT LEVEL 3. 


; > aaa ta ak tite etm aaa iii ine ciate 
$115 
SCOPE :PROCESS LOOPING AND TEST NUMBER INCREMENT 
MOV #999$,,SLPERR T LOOP ON ERR 
BIT wT! 11,aSWR ‘ae TEST TO SEE IF TEST NUMBER TRACER ENABLED 
BEQ 1001$ 88 BRANCH IF NOT 
TYPE 1000$ 788 T “T #15" 
j 88 GET OVER ASCII 


BR 001$ 
1000$: .ASCIZ /T # 15/<CRLF> [8&8 THE ASCII MESSAGE 


1001$: 
999$: MOV WMA, aCSR :SET MAINTENANCE BIT AND 
CLR acsR SCLEAR CSR TO DO AN INIT 
MOV #LEVEL3,PSW ‘STATUS AT LEVEL 3 
MOV acSR,RCSR ‘MOVE CSR CONTENTS TO R 
TSTB —s RCSR SSEE IF READY BIT (BIT gsr IS SET 
BMI 1$ *BRANCH IF IT is 
MOV #RY,ECSR ‘SET THE BIT THAT SHOULD HAVE BEEN SET 
JSR PC, CHKCAB 360 CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY 
ERROR +22 “READY OF CSR WAS NOT SET 
1$ MOV @DRINV,SDRINY SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
MOV @DRVS, SDRVS [SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
MOV #3$, aDRINV 3SET UP INTERRUPT VECTOR 
MOV #MA‘aCSR NT MODE 
MOV n1060 TIME SET THE TIME COUNTER 
BIS #IE*F2+60, @CSR :IE. FNCT2 AND GO 
2$: DEC TIME [DECREMENT DOWN TO ZERO 
BNE 2$ SBRANCH IF NOT THER E ver 
MOV aCSR,RCSR ZMOVE RECEIVED DATA TO RCSR 
MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
MOV SDRVS ,aDRVS ZRESTORE LOCATION USED AS THE INTERRUPT PS 
ERROR +35 [DR11 FAILED TO INTERRUPT 
CLR acsr :CLEAR. THE CSR TO DO AN INIT 
BR TST16 ANCH TO THE NEXT TEST 
38: ADD ICLEAN THE STACK AFTER THE INTER 


RUPT 
RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
RESTORE LOCATION USED AS THE INTERRUPT PS 


#4,SP 
MOV SDRINV,@DRINV 
MOV SDRVS ,aDRVS 





a a a Le ee 
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TEST #16 = DR11 FAILS TO INTERRUPT WITH CPU AT LEVE 


5058 .SBTTL TEST #16 = DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL 7 
FRAAAAAAERAAAAAAAAARERE AERA AEE REEAERAEREKARAEE ARERR RERERAEREKEREEE 
;*TEST 16 DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL 7 
‘° THIS TEST_INSUPES THAT THE DR11 FAILS TO INTERRUPT WITH THE CPU PRIORITY 
3* AT LEVEL 7. 
*® 
*: i i ia a a aaa aati 
016524 tST1 
016524 000004 SCOPE :PROCESS LOOPING AND TEST NUMBER INCREMENT 
016526 012737 0165462 001310 MOV #999$ SLPERR § :SET LOOP ON ERROR TO 
016534 032777 004000 162576 BIT #81T11,aSWR 88 TEST TO SEE IF TEST NUMBER TRACER ENABLED 
016542 001407 BEQ 1001$ @& BRANCH IF NOT 
016544 104401 016552 TYPE 1000$ [88 TYPE: ‘T # 6 
016550 000404 BR 1001$ 788 GET OVER ASCII 
016552 124 040 043 10008: .ASCIZ /T # 16/<CRLF> :8& THE ASCII MESSAGE 
016562 1001$ — 
5059 016562 004737 003646 999$: JSR PC, CLENUP ;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
5060 016566 017737 163730 002560 MOV acSR,RCSR sMOVE CSR DATA TO RCSR 
5061 016574 105737 002560 TSTB ~—RCSR CLEAR ALL BUT THE READY BIT (BIT 7) 
5062 016600 100411 BMI 1$ [BRANCH IF IT IS SET 
5063 016602 012737 000200 002572 MOV #RY,ECSR [MOVE EXPECTED DATA TO ECSR 
5064 016610 004737 003670 JSR PC, CHKCAB :GO CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY 
5065 016614 052737 000200 002572 BIS #RYECSR 3SET THE BIT THAT SHOULD HAVE BEEN SET 
5066 016622 104022 ERROR +22 “READY OF CSR WAS NOT SET 
5067 016624 017737 163676 002532 1$: MOV @DRINV,SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
5068 016632 017737 163672 002534 MOV @DRVS, SDRVS :SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
9 016640 012777 016726 163660 MOV #3$, aDRINV :SET UP INT VECTOR 
5070 016646 012777 000340 163654 MOV #LEVEL7, aDRVS 
5071 016654 012737 001000 002660 MOV #1000, TIME :SET TIME DELAY COUNTER 
5072 016662 012777 010000 163632 MOV WMA, aCSR [MAINT MODE 
5073 016670 052777 000105 163624 BIS #IE+F2+G0,aCSR :IE, FNCT2 AND GO 
5074 016676 005337 002660 2$: DEC TIME [DECREMENT UNTIL WE GET TO ZERO 
5075 016702 001375 BNE 2$ ;BRAN CH BACK IF NOT ZERO YET 
5076 016704 005077 163612 CLR acsR CLEAR THE CSR TO DO AN INIT 
5077 016710 013777 002532 163610 MOV SDRINV, @DRINV ‘RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5078 016716 013777 002534 163604 MOV SDRVS .aDRVS TRESTORE LOCATION USED AS THE INTERRUPT PS 
5079 016724 000416 BR TST17 ‘BRANCH TO THE NEXT TEST 
5080 016726 062706 000004 3$: ADD #4 ,SP SRESTORE STAC 
5081 016732 017737 163564 002560 MOY acSR.RCSR [MOVE RECEIVED DATA TO RCSR 
5082 016740 005077 163556 CLR acsR [CLEAR IE 
5083 016744 013777 002532 163554 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5084 016752 013777 002534 163550 MOV SDRVS ,aDRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
5085 016760 104036 ERROR +36 [DR11 INTERRUPTED, BUT IT SHOULDN'T HAVE 
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TEST #17 = DR11 INTERRUPTS AT CORRECT BR LEVEL 


5092 .SBTTL TEST #17 = DR11 INTERRUPTS AT CORRECT BR LEVEL 
FF MAAAAREAAAAAAAAAAAAAARAAEAEAAAAAAAAAARAAAAHERHERAAAAKEAAAATEAEEE 
S*TEST 17 DR11 INTERRUPTS AT CORRECT BR LEVEL 
5* 
ie THIS TEST INSURES THAT THE DR11 WILL INTERRUPT AT THE CORRECT LEVEL AS 
:* DEFINED IN THE DEVICE DESCRIPTOR WORD. 
*® 
+ Ree eeeeeeeneneeeneneeeteteenneeneeeeneneneneneneneteeneenerenee 
016762 TST17: 
016762 000004 SCOPE eeT 108 LOOPING AND TEST NUMBER INCREMENT 
016764 012737 017074 001310 MOV #9998, SLPERR LOOP ON ERROR TO 999$ 
016772 032777 004000 162340 BIT #B1T11,aSwR Ath TEST TO SEE IF TEST NUMBER TRACER ENABLED 
017000 001407 BEQ 1001$ 88 BRANCH IF NOT 
017002 104401 017010 TYPE 10008 [@& TYPE: ‘“'T # 17° 
017006 000404 BR 1001$ [88 GET OVER ASCII 
017010 124 040 043 10008: vey /T # 17/<CRLF> at THE ASCII MESSAGE 
017020 10018: 
5093 017020 004737 003646 JSR PC, CLENUP ; SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI 107 
5094 017024 013737 002720 001362 MOV DDW, STMP1 [MOVE DEVICE DESCRIPTOR WORD TO $TMP 
5095 017032 006237 001362 ASR STMP1 ;SHIFT THE LEVEL TO THE RIGHT g PLACES 
5 17036 237 001362 ASR $TMP1 
5097 017042 006237 001362 ASR $TMP1 
5098 017046 006237 001362 ASR $MPI 
5099 017052 237 00 ASR $TMP 
5100 017056 042737 177770 001362 BIC 5199770, STMP1 sCLEAR ALL BUT THE PRIORITY 
5701 017064 012700 000003 1$: MOV #3,R0 [DC 3 PRIORITY LEVELS 
5102 017070 012701 004732 MOV #LEVELS, R1 MOVE ADDRESS OF CPU pe a Nh TO R1 
5103 017074 012777 010000 163420 999$§: MOV #MA,acsR sSET THE MAINTENANCE BIT AND 
5104 017102 005077 163414 CLR acsR *CLEAR TO DO AN INIT 
5105 017106 011137 177776 MOV (R1),PSwW sPUT PRIORITY INTO PSW 
5106 017112 017737 163404 002560 MOV acSR,RCSR “MOVE RECEIVED DATA TO RCSR 
5107 017120 012737 000200 002572 MOV #RY.ECSR *MOVE READY BIT TO ECSR 
5108 017126 004737 003670 JSR PC,CHKCAB :GO CHECK CABLE STATUS AND ALTER EXPECTED IF NECES“ARY 
5109 017132 023737 002560 002572 CMP RCSR, ECSR SEE IF RECEIVED DATA MATCHES EXPECTED 
5110 017140 001412 BEQ 2$ [BRANCH IF OK 
5111 037142 012737 017064 001310 MOV #1$,$LPERR zSET UP FOR POSSIBLE 7 on ERROR FOR THIS ERROR ONLY 
5112 017150 012737 000200 002572 MOV #RY.ECSR [MOVE EXPECTED DATA 10 ECS 
5113 017156 104022 ERROR +22 *READY OF CSR WAS T SET 
5114 017160 012737 017074 001310 MOV #999$ .SLPERR sRETURN ORIGINAL LOOP ON ERROR ADDRESS - DID NOT LOOP 
5115 017166 017737 163334 002532 2$: MOV @DRINV, SORINV sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
5116 017174 017737 163330 002534 MOV @DRVS, SDRVS : SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
5117 017202 012777 017314 163316 MOV #4$, aDRINV :SET UP INTERRUPT veCT OR 
5118 017210 012777 000340 163312 MOV #LEVEL7, aDRVS SET UP INTERRUPT P 
5119 017216 012777 010000 163276 MOV WMA acsh [MAINT MODE 
5120 017224 012737 000400 002660 MOV #400,T1 SET DELAY COUNTER 
5121 017232 052777 000105 163262 BIS tie st +60.aCSR TIE, FNCT2 AND GO 
5122 017240 005337 002660 3$: DEC TIME [DECREMENT UNTIL WE GET TO ZERO 
5123 017244 001375 BNE 3$ *BRANCH BACK IF NOT ZERO YET 
5124 017246 005077 163250 CLR acsR [CLEAR CSR TO DO AN INIT 
5125 017252 013777 002532 163246 MOV SDRINV,@DRINV sRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5126 017260 013777 002534 163242 MOV SDRVS, aDRVS TRESTORE LOCATION USED AS THE INTERRUPT #S 
5127 017266 013737 177776 002540 MOV Ps SW, LEVEL SSAVE OLD STATUS LEVEL 
5128 017274 005721 TST R1$6 SINCREMENT RI TO POINT TO NEXT PRIORITY LEVEL 
5129 017276 005300 DEC RO [DECREMENT LOOP COUNTER 
5130 017300 001275 BNE 9998 “BRANCH BACK FOR ANOTHER TRY IF NOT DONE 
5131 017302 104053 ERROR +53 [DR11 FAILED TO INTERRUPT 


- a - ——————— -- - 


8 
CZDRLDO=DR11 GEN NPR INTFC MACRO M1113 O2=NOV-81 16:08 PAGE 103-1 SEQUENCE 104 
TEST #17 = DR11 INTERRUPTS AT CORRECT BR LEVEL 


3132 017306 013737 002552 002540 MOV DRLEV, LEVEL 7 SET LEVEL TO CONTAIN THE ANTICIPATED LEVEL 
5133 017312 000422 QR TST20 ‘BRAN o ive NEXT TEST 
5134 017314 062706 000004 4$: ADD a4,SP [RESTORE "Ora 
5135 017320 005077 163176 CLR acsR CLEAR IE 
5136 017324 013777 002532 163174 MOV SDRINV, gon Nv sRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5137 017332 013777 002534 163170 MOV SDRV RVS *RESTORE LOCATION USED AS THE INTERRUPT PS 
5138 017340 042737 177437 002540 BIC hak ae LEVEL ;CLEAR ALL BITS BUT THE BR LEVEL 
5139 017346 023737 002540 002552 CMP LEVEL, DRLEV [SEE IF LEVEL INTERRUPTED maT CHES EXPECTE 
5140 017354 001401 BEQ $720 “BRANCH AROUND ERROR CALL IF IT IS AS EXPECTED 
| 5141 017356 104052 ERROR 133 3DR11 INTERRUPTED AT WRONG LEVEL 
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TEST #20 = A GO WITHOUT CLEARING ERROR CAUSES INTRPT 


SEQUENCE 105 


5148 -SBTTL TEST #20 = A GO WITHOUT CLEARING ERROR CAUSES INTRPT 
FRAAAAAAAAAAAAAAAEAARAEREAAAAAAAAEAAERARAAAARERARERAAAHAEARRAEEAEEE 
;#TEST 20 A GO WITHOUT CLEARING ERROR CAUSES INTRPT 
te THIS TEST INSURES THAT SETTING THE GO BIT WITHOUT CLEARING THE ERROR 
;* BIT CAUSES AN INTERRUPT. 
-* 
IIIIIIIIIIIII IIIT TIT T TT IT TI TIT Ti Tititiiitiiiiiiiiti Titi iii ii 
017360 T$120: 
017360 SCOPE zPROCESS LOOPING AND TEST NUMBER INCREMENT 
017362 012737 017416 001310 MOV #999$,SLPERR § :SET LOOP ON ERROR TO 999$ 
017370 032777 004000 161742 BIT #BIT11,aSWR 88 TEST To SEE IF TEST NUMBER TRACER ENABLED 
017376 001407 BEO 1001$ :@& BRANCH IF NOT 
017400 104401 017406 TYPE 1000S :@&@ TYPE: ‘T # 
017404 04 BR 001$ [8& GET OVER ASCII 
017406 124 C40 043 1000S: asc1z /T # 20/<CRLF> :@& THE ASCII MESSAGE 
017416 1001$ 
5149 017416 737 003646 999$: JSR PC, CLENUP ;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
5150 017422 017737 163100 002532 MOV @DRINV,SDRINV ;SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
5151 017430 017737 163074 002534 MOV @DRVS, SDRVS ;SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
5152 017436 012777 017540 163062 MOV #2$,aDRINV ZANTERRUPT VECTOR TO 3$ 
5153 017444 012777 000140 163056 MOV #LEVEL3,a@DRVS N.ERRUPT STATUS 10 LEVEL 3 
5154 017452 005037 177776 CLR PSW [LET THE DR11 INTERR 
5155 017456 012737 001000 002660 MOV #1000, TIME ‘MOVE DELAY COUNTER 40. LOCATION 
5156 017464 012777 010101 163030 MOV WMA+IE+GO,aCSR :SET MAINT, IE AND GO 
5157 017472 052777 020004 163022 BIS WAT+F2,aCSR :SET ATTN AND FNCT2 
5158 017500 005337 002660 1$: DEC TIME :DECREMENT UNTIL i REACH ZERO 
5159 017504 001375 BNE 1$ [BRANCH IF NOT ZERO YET 
5160 017506 013777 002532 163012 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5161 017514 013777 002534 163006 MOV SDRVS ,aDRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
5162 017522 017737 162774 002560 MOV @CSR,RCSR [MOVE RECEIVED DATA TO RCSR 
5163 017530 104035 ERROR +35 :DR11 FAILED TO INT 
5164 017532 005077 162764 CLR acsR :CLEAR THE CSR TO DO AN INIT 
5165 017536 000512 BR TST21 [BRANCH TO THE NEXT TEST 
5166 017540 062706 000004 2s: ADD #4,SP SREADJUST STACK AFTER THE INTERRUPT 
5167 017544 (13777 002532 162754 MOV SDRINV,@DRINV ;:RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5168 017552 013777 002534 162750 MOV SDRVS ,aDRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
5169 017560 017737 162736 002560 MOV acSR,RCSR [MOVE RECEIVED DATA TO RCSR 
5170 017566 100407 BMI [BRANCH IF ERROR IS SET 
5171 017570 013737 002560 002572 MOV RCSR,ECSR [MOVE EXPECTED Data TO ECSR 
3172 017576 052737 100000 002572 BIS #ER,ECSR :SET THE BIT THAT SHOULD HAVE BEEN SET 
5173 017604 104037 ERROR +37 ZERROR BIT SHOULD NOT BE CLEAR 
5174 017606 017737 162714 002532 3$: MOV @DRINV,SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
5175 017614 017737 162710 002534 MOV @DRVS, SDRVS [SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
5176 017622 012777 017716 162676 MOV #5$, aDRINV : INTERRUPT VECTOR TO 6 
5177 017630 005077 162664 CLR @BAR PREVENT CAUSING ANOTHER ERROR 
5178 017634 012777 177777 162654 MOV #-1,awCR :SET-UP WCR 
5179 017642 012737 001000 002660 MOV #1060, TIME ;LOAD 1000 IN LOCATION TIME FOR WAIT LOOP 
5180 017650 052777 000001 162644 BIS #G0,aCSR :SET 'GO’ IN CS 
5181 017656 005237 002660 4$: INC “DELAY - wAlT FOR INTERRUPT 
5182 017662 001375 BNE 4 ANCH BACK IF NOT ZERO 
5183 017664 013777 002532 162634 MOV SDRINV, @DRINV “RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5184 017672 013777 002534 162630 MOV SDRVS ,aDRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
5185 017700 017737 162616 002560 MOV CSR, [MOVE RECEI VED DATA TO RCSR 
5186 017706 104035 ERROR + :DR11 FAILED TO INTERRUPT 
5187 017710 005077 162606 CLR acsr [CLEAR CSR TO DO AN INIT 
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5188 0 
5189 0 
5190 0 
5191 0 
2136 0 
5193 0 
5194 0 
5195 0 
5196 0 


00 

002532 
002534 
162560 


002560 
100000 
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TST21 
‘i 
SDRVS, 
acs 


TST2 
RCSR,ECSR 
WER, ECSR 


+21 


4,SP 
SDRINV, ADRINV 
aDRVS 


SEQUENCE 


sBRANCH TO THE NEXT TEST 

CLEAN UP STACK AFTER INTERRUPT 

RESTORE LOCATION USED AS THE INTERRUPT VECTOR 

:RES TORE LOCATION USED AS THE INTERRUPT PS 

MOVE 7 an DATA TO aa - IS ERROR CLEAR 

ANCH TO NEXT TEST IF IT IS 

“MOVE EXPECTED DATA TO ECSR 

CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 


ERROR BIT SHOULD HAVE BEEN CLEAR 
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TEST #21 = FUNCTION BITS INC WITH MAINT MODE TRANSFERS 
5203 - SBTTL TEST #21 = FUNCTION BITS INC WITH MAINT MODE TRANSFERS 
FERRARA REAAAEEAAREEREREEEEEEAEEEREREEEERREERERERERREEREERREREREE 
TRTEST 21 FUNCTION BITS INC WITH MAINT MODE TRANSFERS 
te 
ie THIS TEST INSURES THAT THE FUNCTION BITS INCREMENT WITH MAINTENANCE 
3* MODE TRANSFERS 
-* 
CLEMO Biss OM ATEN SSN oe 
017764 TST21: 
017764 000004 SCOPE ;PROCESS LOOPING AND TEST NUMBER INCREMENT 
017766 012737 020036 001310 MOV art SLPERR ;SET LOOP ON ERROR TO 999$ 
017774 032777 004000 161336 BIT mi, aSwR :8@ TEST TO SEE IF TEST NUMBER TRACER ENABLED 
020002 001407 Bea 10018 88 BRANCH IF NOT. 
104401 020012 TYPE 1000$ 308 TYPE: ‘T # 21 
020010 000404 & GET OVER ASCII 


BR 001$ 4 
020012 124 040 043 10008: rly /1 # 21/<CRLF> 388 THE ASCII MESSAGE 


20022 1001$: 
5204 020022 012737 000016 001364 MOV #16,$TMP2 . gSET UP FUNCTION COUNT COMPARE 
350? 020030 012737 177771 001360 MOV #-7,STMPO SET UP_WCR LOAD VARIABLE 
5 020036 004737 003646 999$: JSR PC,CLENUP ;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
5207 020042 013777 002616 162450 MOV INBUF , @BAR SET-UP BAR 
5208 020050 017737 162452 002532 18: MOV @DRINV,SDRINV SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
5209 020056 017737 162446 002534 MOV @DRVS,SDRVS sSAVE LOCATION TO BE USED AS THE INTERRUPT PS 
5210 02 012777 020174 162434 MOV #3$ ,aDRINV : INTERRUPT VECTOR 
5211 020072 013777 002540 162430 MOV LEVEL ,aDRVS INTERRUPT VECTOR PRIORITY TO LEVEL OF DEVICE 
5212 020100 013777 001360 162410 MOV STMPO ,aWCR ;SET UP FOR NUMBER OF TRANSFERS IN STMPO 
5213 020106 005037 177776 CLR PSW :LET THE DR11 INTERRUPT 
5214 020112 012777 010000 162402 MOV #MA,aCSR :MAINT MODE 
5215 020120 012737 001000 002660 MOV #1000, TIME MOVE etl COUNTER TO LOCATION TIME 
5216 020126 052777 000501 162366 BIS #IE+CY+G0,aCSR IE. CYCLE & GO 
5217 020134 005337 002660 2$: DEC TIME :DECREMENT UNTIL ZERO 
5218 020140 001375 BNE 2$ CH BACK _IF NOT 
5219 020142 017737 162354 002560 MOV @CSR,.RCSR {MOVE RECEIVED DATA TO RCSR 
5220 020150 013777 002532 162350 MOV SDRINV,@DRINV ;RESTORE taterion USED AS THE INTERRUPT VECTOR 
5221 020156 013777 002534 162344 MOV SDRVS ,aDRVS RESTORE LOCATION USED AS THE INTERRUPT PS 
5222 020164 104035 ERROR +35 3DR11 FAILED TO INTERRUPT 
5223 020166 005077 162330 CLR acsR :CLEAR THE CSR_TO DO AN INIT 
5224 020172 000442 BR TST22 BRANCH TO NEXT TEST 
5225 020174 062706 000004 3$: ADD #4,SP CLEAN UP STACK AFTER INTERRUPT 
a5se 020200 013777 002532 162320 MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5227 020206 013777 002534 162314 MOV SDRVS ,aDRVS RESTORE LOCATION USED AS THE INTERRUPT PS 
5228 020214 017737 162302 002560 MOV aCSR,.RCSR ;MOVE RECEIVED DATA TO RCSR 
5229 020222 013701 Oe 269 MOV RCSR,R1 MOVE RECEIVED DATA TO R1 ALSO AND 
5230 020226 042701 177761 BIC #CFNC,R1 CLEAR ALL BUT THE FUNCTION BITS 
5231 020232 020137 001364 CMP R1,STMP2 3 SEE if ac tS BIT(S) HAD INCREMENTED PROPERLY 
5232 020236 001412 BEQ ah ANCH IF THEY HAD 
5233 020240 013737 002560 002572 MOV RCSR,ECSR {MOVE RECEIVED DATA TO EXPECTED LOCATION 
5234 020246 042737 000016 002572 BIC #FNC,ECSR [CLEAR THE FUNCTION BIT(S) THAT WERE THERE AND 
5235 020254 053737 001364 002572 BIS $TMP2,ECSR 2PUT FUNCTION BIT(S) EXPECTED IN THEIR PLACE 
5236 020262 104212 ERROR +212 zFUNCTION BITS DIDN'T INCREMENT IN MAINT MODE 
5237 020264 005237 001360 4$: INC STMPO SADJUST WCR LOAD LOCATION 
5238 020270 162737 000002 001364 SUB #2,$TMP2 ;SUBTRACT 2 FROM phn UE OM couaet TEST LOCATION 
5239 020276 001264 BNE 1$ :BRANCH BACK FOR ANOTHER 
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CZDRLDO-DR11 GEN NPR 
TEST #22 = TEST FOR 1 


» SBTTL TEST #22 = TEST FOR 10 MAINT MODE TRANSFERS 


FRAAAAAEAAAAERARAEAEEAEAEEEAEERERAERAEEREEAREREREREEAREREEEREREREEE 


TATEST 22 TEST FOR 10 MAINT MODE TRANSFERS 
3* 


ie THIS TEST CHECKS IF 10 MAINTENANCE MODE TRANSFERS CAN BE DONE. 
*® 

TITITITITITIIITITITITI ITIL TLITI LITT TL tt iT LiL LLLi TT EE EL LTT tit 

TS122: 
SCOPE :PROCESS LOOPING AND TEST NUMBER INCREMENT 
MOV 49998 SLPERR § :SET LCOP ON ERROR TO 9 
BIT T1i,aSwR :@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
BEQ ‘BOTS 88 BRANCH IF NOT. 
TYPE 1000$ [@& TYPE: "'T # 22 
BR 001$ :@& GET OVER ASCII 

1000S: “ASCIZ /T # 22/<CRLF> 388 THE ASCII MESSAGE 

1001$: 

999$: CLR CSR ZFORCE ACCESS TO CSR 
MOV #10 BUFLEN {BUF LEN=10 
MOV BUFLEN,WCLEN | § :PREPARE NUMBER FOR WCR 
NEG WCLEN 72°S COMPLEMENT OF BUFLEN 
JSR PC, LODBUF [LOAD IN BUFFER WITH INCREMENTING PATTERN 
JSR PC. CHKBF F [LOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN 
MOV WCLEN, awWCR :SET UP WCR 
MOV INBUF . @BAR [SET UP BAR 
MOV #-1, aBDR ‘MAINT AIDE 
MOV SDRINY. SDRINV ;SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
MOV @DRVS, SDRVS ; SAV AVE LOCATION TO BE USED AS THE INTERRUPT PS 
MOV #2$,aDRINV : INTERRUPT VECTOR 
MOV LEVEL ,aDRVS iter Da STATUS | aT PRIORITY LEVEL OF DEVICE 
CLR PSW 3LET DR11 INTER 
MOV #MA,aCSR 
BIS #IE+CY+GO,aCSR Me Nivere ee GO 
MOV #1000, TIME :SET LOOP COUNTER FOR WAIT 

1$: DEC TIME [DECREMENT UNTIL WE GET TO ZERO 
BNE 1$ ‘BRANCH BACK IF NOT ZERO 
MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
MOV SDRVS ,@DRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
MOV acSR.RCSR [MOVE RECEIVED DATA TO RCSR 
ERROR +35 7DR11 FAILED TO INTERR RUPT 
CLR acsr :CLEAR THE CSR TO DO AN INIT 
BR 3$ CH AROUND THE STACK CLEANUP 

2$: ADD #4,SP ICL EAN UP STACK AFTER THE INTERRUPT 

3$: MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
MOV SDRVS ,aDRVS 3RESTORE LOCATION USED AS THE INTERRUPT PS 
JSR PC, INTA ;GO CLEAR IE, CHECK ERROR, READY. WCR=0 AND BAR 
ERROR +51 ‘CSR AND-OR WCR BAR ARE INCORECT 
CLR ERRCNT : CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201 
JSR PC DATCHK CHECK INBUF AFTER A MAINTENANCE MODE OPERATION 
ERROR +201 “BUFFER DATA NOT 


CORRECT 
JSR PC ,DATCH2 :GO BACK TO SUBROUTINE AFTER ERROR RTS IN DATCHK 
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pe tbe TEST #23 = TEST 10 MAINTENANCE MODE XFERS 


FRAAARAERAAEAREREREREREREEEEEAEARERERRERARERAAEAEEEREAERERARREERRERERE 


TEST 10 MAINTENANCE MODE XFERS 


#999$.SLPERR 
#B81T11,aSWR 
1001$ 


1000$ 
001$ 
/T # 23/<CRLF> 


PC, CLENUP 

#1000, TIME 

#10,BUFLEN 

BUFLEN,WCLEN 
WCLEN 


PC ,LODBUF 

PC, CHKBFF 
WCLEN ,a@wCR 
INBUF , @BAR 
@DRINV, SDRINV 


2s, I 
LEVEL, aDRVS 
#MA, R 
#IE+CY+G0,aCSR 
TIME 
1$ 
SDRINV,@DRINV 
SDRVS ,aDRVS 
PC,INTA 
+54 
ERRCNT 
PC DATCHK 
+261 
PC,DATCH2 
3$ 


#4,SP 
SDRINV,@DRINV 
SDRVS ,aDRVS 


INBUF , @BAR 
@DRINV, SDRINV 
@DRVS,SDRVS 


BRANCH TO C 


THIS TEST CHECKS THAT 10 MAINTENANCE MODE TRANSFERS, ATTEMPTED BEFORE 
SERVICING A PENDING INTERRUPT OF A PREVIOUS TRANSFER, ARE UNSUCCESSFUL. 


ab-blababababababababababebebebebebbebebebbbebbbbibbbhibhihbhhihibbihhbihbhbbbhhhl 

sPROCESS LOOPING AND TEST NUMBER INCREMENT 

3SET LOOP ON ERROR TO 999$ 

108 TEST TO SEE IF TEST NUMBER TRACER ENABLED 
ee TYPE: . 


:@& GET OVER ASCII 
388 THE ASCII MESSAGE 


H IF NOT 
"T # 23"' 


hos ep TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 


OF BUFLEN 
SCOAD IN BUFFER WITH INCREMENTING PATTERN 
:LOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN 


: T AIDE 

;SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
;SAVE LOCATION TO BE USED AS THE INTERRUPT PS 

: INTERRUPT VECTOR 

i INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE 
‘MAIN T MODE 


sIE, NCYCLe & GO 

WAIT FOR TRANSFERS TO COMPLETE 

{BRANCH H BACK IF WE ARE STILL WAITING 

;RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
sRESTORE ee co Eien AS THE INTERRUPT PS 


CLEAR IE, C 
AND-OR WCR 


2CSR AND-OR cT 

3CLEAR THE ERRCNT Wye FOR USE OF ERROR Ms 
HECK INBUF AFTER A MAIN 

ZBUFFER DATA NOT CORRECT 


BACK 10 S 


;RESTORE LOCATION U 

SMOVE RECEIVED DATA T 
3DR11_ INTERRUPTED 
BRANCH TO NEXT TEST 


SET TIME LOOP COUNTER 

SMOVE WCLEN TO WCR 

;MOVE INBUF TO BAR 

sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
;SAVE LOCATION TO BE USED AS THE INTERRUPT PS 


SEQUENCE 109 


TENANCE MODE OPERATI 
ie AFTER ERROR RTS IN DATCHK 
CLEAN UP THE STACK FROM THIS INTERRUPT 

;RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
se . INTERRUPT PS 


RCS 
BUT IT SHOULDN'T HAVE 








CZDRLDO-DR1 
TEST #23 - 


“oo 
-—m 


E 


WWW 
mn 
WhO COON 


Polo lolololololololololalololoflololelololololololololoj}=] 
PORIPNINGNDNNNPOPSNNONMPoPonononofonononoponyfnonstyd 


WWUIWGT 
ek a et ee ee ek ee ek ek ad ed ed ed ad ed 


WIWNWWNWWWNWWANWW 
FW 90 OONOAUSWWN—O OONOU 
WWIWIWIWNIWNIRNIRINININNNINNNNNNIN 2 2 a es st 
NMFSAOSNMAS NONMNONENESNEAONVMEFSAON 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


wi 
WWW 
WN 


53 











N_NPR_ INTFC 


10 MAINTENANCE MODE 


777 


ooo 
na 


NM—MNWW Uiponorys 
~N ~N 
NN 
™N 


& 
VaR 
NNON 


Sx2eesess 


—OCOooCoooo°0 oO 
ON 
RAs 
NOE NA NNN 


NON 


021304 
010000 
000501 
002660 
002532 
002534 
161320 
010700 
010700 


161270 
177770 


002616 
161240 
177770 
002616 
161220 


000004 


161172 
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XFERS 


002566 
161256 


002566 
002570 


4$: 


5$: 


6$: 


7$: 
8$: 


MOV 


#8$, aDRINV 
#IE+CY+GO,aCSR 
TINE 

SDRINV, aDRINV 
SDRVS ,aDRVS 
aCSR.ACSR 
#10760.RCSR 
#10700, ECSR 
+40 

@BAR.RBAR 
#-10,aWCR 

6$ 

INBUF ,RBAR 

7$ 


INBUF , EBAR 


i 
CSR 

TST24 

#4,SP 

SDRINV ,@DRINV 

fren btta 


+42 


SEQUENCE 


:SET " INTERRUPT VECTOR 
tvCLEe 


MA 
cE, CYCLE & GO 
;DECREMENT TO ZERO WHILE WAITING 

H BACK IF NOT ZERO 
RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
;RESTORE LOCATION USED AS INTERRUPT PS 
;MOVE RECEIVED DATA TO RCSR 
7SEE IF ONLY READY, MAINT, IE & CYCLE ARE SET 
;BRANCH IF THEY ARE 
;MOVE EXPECTED DATA TO ECSR 
:CSR_IS_ WRONG 
MOVE te DATA TO RBAR 
; CHECK T_NO TRANSFERS WERE MADE 
‘BRANCH. 1 ERROR IF THERE WERE 
CHECK THAT NO TRANSFERS WERE MADE 
BRANCH AROUND ERROR IF NONE 
sMOVE RECEIVED DATA TO RWCR 
sMOVE EXPECTED DATA TO EWCR 
sMOVE EXPECTED DATA TO EBAR 
; TRANSFERS SHOULD my BEEN INHIBITED 
7CLEAR THE CSR TO DO AN INIT 
;BRANCH TO NEXT TEST 
CLEAN UP STACK AFTER INTERRUPT 
RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
RESTORE LOCATION USED AS THE INTERRUPT PS 
;MOVE RECEIVED DATA TO RCSR 
;DR11 SHOULD NOT HAVE INTERRUPTED A 2ND TIME 


110 





CZDRLDO=DR11_ GEN NPR_INTFC 
TEST #24 = TEST FOR 200 NPR TRANSFERS IN MAINT MO 


vente TEST #24 = TEST FOR 200 NPR TRANSFERS IN MAINT MODE 
oT tilts itis ii iii tii iat itit it iilititiitiziiiititiiiteiiiiiity 
TEST FOR 200 NPR TRANSFERS IN MAINT MODE 
THIS TEST CHECKS FOR 200 NPR TRANSFERS IN MAINTENANCE MODE. 
CPTI i iii iii iiitititiiitiiiiitiiey 


oor tae LOOPING AND TEST NUMBER INCREMENT 
LOOP ON ERROR 10 

ee. TEST TO SEE id TEST NUMBER TRACER ENABLED 

:@& BRANCH IF 


MMIII 
SSE 
WN-—CO 
ooo oooooO 
ROMrNrmrunrmnmrnun 
~<a —_ — td SY YY I 
SRRRRREW 
WRN =0N 
ANACNA 


WM 
SSS 
ans 


Seek 


PUPVPVPVUPUSVSVSV SUSI 

SSSSESE 

—SOOOnNOW 

oo 

MOPONNNMoNony 

—_ od 
ww 


WWW 
oO 


021372 
004000 


021362 
040 


003646 


160756 
002532 
002534 


160732 


002714 
003526 


003624 
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#999$,SLPERR 
#11! 11, aSwR 
1001$ 

1000$ 
1001$ 


/T # 24/<CRLF> 


PC, CLENUP 
acsR 


#200, BUFLEN 
BUFLEN,WCLEN 
WCLEN 


PC ,LODBUF 
PC, CHKBFF 
WCLEN .@wCR 
INBUF , @BAR 
#-1,a8DR 
@DRINV, SDRINV 
VS, SDRVS 
#2$, aDRINV 
LEVEL, aDRVS 


ona cs 
#1000, TIME 
#IE+CY+GO,aCSR 
TIME 


aCSR,RCSR 
SDRINV,a@DRINV 
SDRVS ,@DRVS 
+43 

acsrR 

3$ 


#4,SP 
SDRINV,@DRINV 
SDRVS ,aDRVS 
PC, INTA 
+5) 


ERRCNT 

PC ,DATCHK 
+201 

PC ,DATCH2 





38 VER ASCII 
388 THE ASCII AMES SAGE 


SSURCECACCE TO rh fon DEVICE REGISTERS & SET CPU PRI TO 7 


OF BUFLEN 
:COAD INBUF WITH INCREMENTING PATTERN 
Sep ur ack WITH MODIFIED INCREMENTED PATTERN 


3 AIDE 
SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
sSAVE LOCATION TO BE USED AS THE INTERRUPT PS 


INT VECTOR 
z INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE 
iL il eee INTERRUPT 


3MAI E 
41 WAIT LOOP COUNTER 
CYCLE & GO 
;DECREMENT UNTIL WE GET TO ZERO 
CH BACK IF NOT ZERO 
“MOVE RECEIVED DATA TO RCS 


R 
RESTORE LOCASION USED AS THE INTERRUPT VECTOR 
LOCATION USED gg Fema PS 


CH AR STACK CLEANUP 
CLEAN UP THE STACK AFTER INTERRUPT 
3RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
sRESTORE LOCATION USED AS THE on RUPT PS 
CLEAR | sy HECK ERR WCR=0 AND BAR 


2CSR INCORRECT 
ZCLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201 
i CHECK INBUF oe A MAINTENANCE MODE OPERATION 


TC 
60 BACK TO SUBROUTINE AFTER ERROR RTS IN DATCHK 
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TEST #25 = DOING DATO TO DIODE MEMORY CAUSES NEX 



















SEQUENCE 112 


5402 - SBTTL TEST #25 = DOING DATO TO DIODE MEMORY CAUSES NEX 
FRRRRRAARAAARERAAAEEREEAAEREARERAERAAAARRRREREEKRRERRE EERE EEE 
:HTEST 25 DOING DATO TO DIODE MEMORY CAUSES NEX 
ie THIS TEST INSURES THAT DOING A DATO TO DIODE MEMORY CAUSES THE NEX BIT 
s* (BIT 14) TO SET. 
: 
PITITII IIIT ITI TTT TTT TTT itiititiiiiitiiiiitiiititit ttt tii tl 
021636 TST25: 
021636 000004 SCOPE eT ine LOOPING AND TEST NUMBER INCREMENT 
021640 012737 021674 001310 MOV #999$ ,SLPERR T LOOP ON ERROR TO 999$ 
021646 032777 004000 157464 BIT #B1T11,aSWR 36 TEST TO SEE IF TEST NUMBER TRACER ENABLED 
021654 001407 BEQ 1001$ 78@ BRANCH IF NOT 
021656 104401 021664 TYPE 1000$ 3@& TYPE: “'T # 25°’ 
1662 000404 & GET OVER ASCII 


BR 001$ 38 
124 040 043 10008: oes /T # 25/<CRLF> ;8& THE ASCII MESSAGE 


1674 1001$: 
5403 021674 004737 003646 999$: JSR PC, CLENUP SUBROUTINE 10, CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
5404 021700 005077 160616 CLR acsR SFORCE ACCESS TO CSR 
012777 177776 160604 MOV #-2,awCR 3SET UP WCR 
06 021712 013777 002614 160600 MOV DIOMEM, @BAR UP BAR 
5407 021720 017737 160602 002532 MOV @DRINV,SDRINV + SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
5408 021726 017737 160576 002534 MOV @DRVS,SDRVS sSAVE LOCATION TO BE USED AS THE INTERRUPT PS 
5409 021734 012777 022044 160564 MOV #2$,aDRINV S INTERRUPT VECTOR TO 3$ 
5410 021742 013777 002540 160560 MOV LEVEL ,@DRVS : INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE 
5411 021750 005037 177776 CLR PSW ‘LET THE DR11 INTERRUPT 
5412 021754 012777 010000 160540 MOV WMA, aCSR [MAINT MODE 
5413 021762 052777 000062 160532 BIS #F14+X6+X7,@CSR :SET FNCT1, XBA16, AND XBA17 
5414 021770 052777 000501 160524 BIS WIE+CY+GO.aCSR :SET IE, CYCLE, AND GO 
5415 021776 012737 001000 002660 MOV #1000, TIME :SET DELAY COUNTER 
5416 022004 005337 002660 1$: DEC TIME DECREMENT UNTIL ZERO 
5417 022010 001375 BNE 1$ [BRANCH BACK IF NOT 
5418 022012 013777 002532 160506 MOV SDRINV,@DRINV sRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5419 022020 013777 002534 160502 MOV SDRVS ,aDRVS “RESTORE LOCATION ‘- AS THE INTERRUPT PS 
5420 022026 017737 160470 002560 MOV aCSR,RCSR [MOVE RECEIVED DATA TO RCSR 
5421 022034 104035 ERROR +35 :DR11 FAILED TO IN TERR 
5422 022036 005077 160460 CLR acsR CLEAR THE CSR TO DO AN INIT 
5423 022042 000431 BR TST26 ;BRANCH T0 THE NEXT TEST 
24 022044 062706 000004 2s: ADD #4,SP “RESTORE THE STACK 
5425 022050 013777 002532 160450 MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5426 022056 013777 002534 160444 MOV SDRVS ,@DRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
? 022 017737 160432 002560 MOV aCSR,RCSR :MOVE CSR DATA TO RCSR 
28 022072 013701 002560 MOV MOVE DATA TO R1 FOR CHECKING 
5429 022076 042701 037577 BIC #37577,R1 CLEAR ALL BUT ERROR, NEX AND READY BITS 
022102 022701 140200 CMP MER+NX+RY RI ‘SEE IF ALL THESE BITS ARE SET 
5431 022106 001407 BEQ TST26 ‘BRANCH TO THE NEXT test IF THEY ARE ALL SET 
5432 022110 013737 002560 002572 MOV RCSR,ECSR *MOVE EXPECTED DATA TO ECSR 
5433 022116 052737 140200 002572 BIS MER+NX+RY,ECSR :SET THE BIT THAT SHOULD HAVE BEEN SET 
5434 022124 104040 ERROR +40 [CSR 1S WRONG 
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TEST #26 = CROSSING 32K DOESN'T CAUSE BAOF OR FORCE 


5441 -SBTTL TEST #26 = CROSSING 32K DOESN'T CAUSE BAOF OR FORCE ERROR 
FAAAAAAAAAAAARARERAAREREREAAEEARAAAAAAAREAREERAREREEREEREEREEEEE 
:#TEST 26 CROSSING 32K DOESN'T CAUSE BAOF OR FORCE ERROR 
se THIS TEST INSURES THAT CROSSING THE 32K BOUNDARY DOES NOT CAUSE A BAOF 
* OR FORCE ERROR. 
°* 
*: : RRA AEAKAAAARARAAAAAERAEAAAAEAERERAARAEARAARARAAAARAAEEARAEERERE 
022126 1S126: 
022126 000004 SCOPE zPROCESS LOOPING AND TEST NUMBER INCREMENT 
022130 012737 022164 001310 MOV 49998 SLPERR _:SET LOOP ON ERROR TO 9 
022136 032777 004000 157174 BIT mi »aSwR [88 TEST TO SEE IF TEST NUMBER TRACER ENABLED 
022144 001407 BEQ 10018 '@& BRANCH IF NOT 
022146 104401 022154 TYPE 1000$ [@& TYPE: "'T # 26" 
022152 000404 BR {001$ 788 GET OVER ASCII 
022154 124 040 043 10008: -ASCIZ /T # 26/<CRLF> 388 THE ASCII MESSAGE 


022164 1001$ 

5442 022164 004737 003646 999$: JSR PC, CLENUP : SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 

5443 022170 012777 177760 160320 MOV #20, awCR [SET UP W 

5444 022176 01277 177776 160314 MOV #-2, aBAR SET UP BAR FOR PROC STATUS ADDRESS 

445 0222 017737 160316 002532 MOV QDRINV. SDRINV + SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 

5446 022212 017737 160312 002534 MOV @DRVS,SDRVS + SAVE LOCATION TO BE USED AS THE INTERRUPT PS 

5447 022220 012777 022316 160300 MOV #2$, aDRINV TINTERRUPT VECTOR TO 3$ 

5448 022226 013777 602540 160274 MOV LEVEL.a@DRVS zIN + haan STATUS AT PRIORITY LEVEL OF DEVICE 

49 022234 012737 001000 002660 MOV #1000, TIME T WAIT LOOP COUNTER 

5450 022242 005037 177776 CLR PSW LET THE DR11 INTERRUPT 

5451 022246 012777 016000 160246 MOV WMA, aCSR “MAINT MODE 

5452 022254 052777 000563 160240 BIS #563,aCSR :CYCLE, IE, FNCT1, XBA17, XBA16, AND GO TO CSR 
022262 005337 002660 1$: DEC TIME [DECREMENT UNTIL WE GET TO ZERO 

5454 022266 001375 BNE 1$ ‘BRANCH BACK IF NOT ZERO 

5455 022270 013777 002532 160230 MOV SDRINV,@DRINV * RESTORE LOCATION USED AS THE INTERRUPT VECTOR 

5456 0222 013777 002534 160224 MOV SDRVS,a@DRVS RESTORE LOCATION “ ¥ AS THE INTERRUPT PS 

5457 022 017737 160212 002560 MOV acSR.RCSR [MOVE CSR CONTENTS TO RCSR 

5458 022312 104035 ERROR +35 [DR11 FAILED TO INTERRUPT 

5459 022314 000433 BR 1ST27 [BRANCH TO NEXT TEST 

5460 022316 062706 000004 2s: ADD #4,SP :CLEAN UP STACK AFTER INTERRUPT 

5461 022322 013777 002532 160176 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 

5462 022330 013777 002534 160172 MOV SDRVS,aDRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 

5463 022336 017737 160160 002560 MOV acSR,RCSR [MOVE CSR CONTENTS TO RCSR 

5464 022344 013701 002560 MOV RCSR.R1 [MOVE CONTENTS TO R1 FOR TESTING 

5465 022350 042701 037577 BIC #37577,R1 [CLEAR ALL BUT THE ERROR AND READY BITS 

5466 022354 022701 140200 CMP #ER+RY+NX,R1 sSEE IF ERROR, READY AND NEX ARE SET 

5467 022360 001411 BEQ TST27 *BRANCH TO NEXT TEST IF THEY ARE 

5468 022362 013737 002560 002572 MOV RCSR,ECSR [MOVE EXPECTED DATA TO ECSR 

5469 022370 052737 149200 002572 BIS WER+RY*NX,ECSR ;SET THE BITS THAT SHOULD HAVE BEEN SET 

5470 022376 104040 ERROR +40 [CSR IS WR 

5471 022400 005077 160116 CLR acsR *CLEAR THE CSR TO DO AN INIT 





5478 


022432 


2442 
5479 022442 


54 

5493 022526 
5494 530 
5495 022534 
5496 022536 
5497 022540 
5498 022546 
5499 554 


5505 022604 


CZDRLDO-DR11 GEN NPR INTFC 
TEST #27 = CHECK ACTUAL POSITION OF 2-N BURST SWITCH 


54 
032777 
001322 


022452 
004000 


022432 
040 


600001 
003646 


do2s6e 


177775 
002720 
177775 


000002 
00400 
000400 
000400 
040400 
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043 


002610 


160036 
002562 


002574 
002574 


002574 
002574 
156534 


SEQUENCE 114 
.SBTTL TEST #27 = CHECK ACTUAL POSITION OF 2-N BURST SWITCH 
FRRAAAAAAAARAAAEAAERAERAEEERERAERAAERERREERAREREAREREERERERKEREREE 
tSTEST 27 CHECK ACTUAL POSITION OF 2=-N BURST SWITCH 
3* 
ie THIS TEST INSURES THAT THE 2=N BURST SWITCH IS IN THE POSITION THAT 
te THE DEVICE DESCRIPTOR WORD SAYS IT SHOULD BE. 
**® 
*: PAARASBASZASZAALALALLALAESELLALELALLEL SELES ELE CESSES EEE EAE ESLER a OS 
TS127: 
SCOPE :PROCESS LOOPING AND TEST NUMBER INCREMENT 
MOV #999$,$LPERR | :SET LOOP ON ERROR TO 999$ 
BIT #B1T11,aSWR :@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
BEQ 1001$ :@& BRANCH IF NOT 
TYPE 1000$ 308 TYPE: “'T # 27" 
BR 001$ & GET OVER ASCII 
1000S: ASC1Z /T # 27/<CRLF> :8& THE ASCII MESSAGE 
1001$: ; 
BIT #B1T0,BORW sTESTING A ‘'B’' OR A ‘Ww''? 
BEQ INOOUT ‘BRANCH TO INOOUT tr DR11-8 
999$: JSR PC. CLENUP [SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
MOV WEIR, aCSR :GO TO EIR MOD 
MOV acsr. REIR [MOVE EIR DATA TO REIR 
CLR *GO BACK TO CS 
MOV aEIR. R1 ‘MOVE DATA TO R1 A 
SWAB sR :GET BIT 8 INTO eit 0, BY SWAPPING BYTES 
ASL A MOVE BIT 0 INTO 
BIC #CBIT1,R1 [CLEAR ALL BUT ha ." 
MOV DDW,R2 ‘PUT DEVICE DESCRIPTOR WORD IN R2 
BIC #CBIT1,R2 [CLEAR ALL BUT BIT 1 
BE 1$ ‘BRANCH TF IT IS CLEAR 
CLR R2 ‘CLEAR THE BIT 
BR 2$ 60 TEST THE BIT 
1$ MOV #BIT1,R2 ‘SET THE BIT 
2$ CMP 1,R2 [SEE IF RECEIVED MATCHES EXPECTED 
BNE [BRANCH TO CHECK FOR LOOP ON TEST 
MOV REIR,EEIR ;MOVE EXPECTED DATA TO EEIR 
BIT #BITB,EEIR “TEST STATE OF BIT 8 
BEQ ‘BRANCH IF IT IS CLEAR 
BIC WBIT8,EEIR SREVERSE STATE = EXPECTED CLEAR 
BR 'GO CALL ERROR 
3$: BIS #BITB,EEIR REVERSE STATE - EXPECTED SET 
4$: ERROR +54 t2-N CYCLE BURST SWITCH IN WRONG POSITION 
5$: BIT #BIT14+BI1T8,aSWR:SEE IF WE SHOULD LOOP ON THIS TEST 
BNE 999$ ‘BRANCH BACK IF SO 
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CZDRLDO=DR11 GEN NPR_INTFC 
CODE TO CHECK CABLE STATUS FOR EXECUTION OF CABLE TESTS 


pecans 032737 000004 002720 INOOUT: 
Sele 000137 025622 


-SBTTL CODE TO CHECK CABLE STATUS FOR EXECUTION OF CABLE TESTS 
CABLE MODE TESTING (WRAP-AROUND CABLE IN USER SLOTS) 


TESTS 30 THRU 37 ARE oO ty IF BIT 2 OF DEVICE DESCRIPTOR WORD IS 
SET, INDICATING CABLE IS IN 


BIT #B1T2,DDW SEE IF CABLE IS_IN 
BNE TST30 :BRAN CH TO NEXT TEST IF CABLE IS IN 
JMP ENDEV ; JUMP TO ENDEV = TESTS ARE NOT TO BE DONE 


---- ————————————— = —_— - ——__— 


% 
| RLDO=DR11 GEN NPR INTFC MACRO M1113 O2-NOV-81 16:08 PAGE 113 SEQUENCE 116 
T #30 = CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR 


$522 .SBITL TEST #30 = CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR 
FRAAAAAAAAAAAAAAERAAAREHAERAEREEAAARAAREHRAERHARARARAKEAREAAEEEe 
tSTEST 30 CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR 
ce 
te THIS TEST SETS ALL POSSIBLE COMBINATIONS OF SET BITS IN THE CSR WITH 
te THE MAINTENANCE BIT CLEAR, AND COMPARES THE RECEIVED CSR CONTENTS WITH 
te THAT OF THE EXPECTED PATTERNS IN "MAICLR'. 
*@ 
*: RERKARAAARARARARAKRAARARARERERAAARARAAARAKRARARARERARERARERARERAAAREEE 
022622 15130: 
022622 000004 SCOPE ; PROCESS LOOPING AND TEST NUMBER INCREMENT 
022624 012737 022706 007310 MOV #999$.SLPERR  :SET LOOP ON ERROR TO 999$ 
| 022632 032777 004000 156500 BIT #BIT11,aSwR [8 TEST TO SEE IF TEST NUMBER TRACER ENABLED 
022640 001407 BEQ 1001$ 388 BRANCH IF NOT 
022642 104401 022650 TYPE 10008 788 TYPE: ‘'T 1 30 
FE 022646 000404 BR __— 10018 308 GET OVER ASCII 
é& 022650 124 040 043 10008: -ASCiz /T # 30/<CRLF> [88 THE ASCII MESSAGE 
| . 
022660 10018: 
5523 022660 004737 003646 JSR PC, CLENUP ;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
5524 022664 005037 002714 CLR ERRCNT S CLEAR Has ERRCNT etree FOR USE OF ERROR +202 
5525 022670 012700 000002 MOV #2,R0 [D0 2 SETS OF 200 PATTERNS 
5526 022674 012701 007220 MOV #MAICLR,R1 [MOVE ADDRESS OF EXPECTED PATTERNS TO R1 
5527 022700 B03 088 CLR R2 sSTART WITH PATTERN ZERO 
5528 022702 012703 000200 1$: MOV #200,R3 [MOVE 200 TO THE LOOP COUNTER 
5529 022706 052777 010000 157606 9998: BIS WMA, aCSR [SET MAINTENAN cE AND 
$530 022714 005077 157602 CLR acsA [CLEAR TO DO AN INIT 
5531 022720 017737 157576 002560 MOV aCSR.RCSR [MOVE RECEIVED DATA TO RCSR 
5532 022726 022737 000200 002560 CMP #RY.RCSR [MAKE SURE READY BIT IS THE ONLY BIT SET 
5533 022734 001404 BEQ 2$ [BRANCH IF SO 
5534 022736 012737 000200 002572 MOV #RY.ECSR [MOVE EXPECTED DATA TO ECSR 
5535 022744 104032 ERROR +32 [READY IS NOT THE ONLY BIT SET 
5536 022746 012777 177777 157542 2%: MOV #=1,awCR [MOVE 1 WORD COUNT TO WCR IN CASE OF IE ENABLED 
5537 022754 012777 056104 157536 MOV WNOCARE,@BAR §:MOVE A NOT-CARE ADDRESS TO BAR FOR SAME REASON 
5538 022762 010277 157534 MOV R2,aCSR [SET THE PARTICULAR FUNCTION BITS IN CSR 
5539 022766 017737 157530 002560 MOV acsR.RCSR [MOVE RECEIVED DATA TO RCSR 
5540 022774 011137 002572 MOV (R1).ECSR [MOVE EXPECTED DATA TO ECSR 
5541 023000 023737 002572 002560 CMP ECSR.RCSR : COMPARE EXPECTED WITH RECEIVED 
5542 023006 001427 BEQ 6$ [BRANCH IF OK 
5543 023010 012737 000401 023020 MOV #CY+GO, 3$ [REESTABLISH BIT PATTERN 
5544 023016 040227 BIC R2, (PCS+ TSEE IF BOTH CYCLE AND GO WERE SET 
5545 023020 000491 3$: .WORD  (CY+G0 [LOCATION TO HOLD BOTH CYCLE AND GO BITS 
5546 023022 001016 BNE 5$ [BRANCH TO ERROR ONLY IF EITHER OR BOTH BITS WERE CLEAR 
5547.023024 005737 002712 TST MEMGMT ;SEE IF MEMORY MANAGEMENT IS OUT THERE 
5548 023030 001404 BEQ 4$ ANCH IF NOT 
5549 023032 032737 000060 002572 BIT #X6*X7,ECSR “SEE IF EITHER XBA16 OR XBA17 ARE aset 
5550 023040 001407 , BEQ 5$ ‘BRANCH TO ERROR IF BOTH ARE CLEAR 
5551 023042 052737 140000 002572 4$: BIS #ER*NX, ECSR :SET THE ERROR AND NEX BITS - EXPECT THEM TO SET 
5552 023050 023737 002572 002560 CMP ECSR,RCSR [NOW SEE IF DATA MATCHES 
5553 023056 001403 BEQ 6§ TBRANCH AROUND ERROR IF IT DOES 
5554 023060 010237 002536 5$: MOV 2,BuT [MOVE THE BITS SET INTO CSR TO THE BUT LOCATION 
5555 023064 104202 ERROR “360 [CSR PATTERN NOT CORRECT 
5556 023066 062701 000002 6$: ADD : R1 : INCREMENT R1 TO tH EXPECTED PATTERN 
5557 023072 005202 INC ‘INCREMENT THE PATTERN 
5558 023074 00530 DEC R :DECREMENT | THE LOOP COUNTER 
| 5559 C23076 001303 BNE 999$ BRAN k IF NOT D 
' — §560 023100 062702 000200 ADD #200,R2 ADD soot 6 PATTERN LOCATION 


a Ne - a 
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CZDR 
TEST #30 = CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR 
5561 023104 00530 DEC RO sDECREMENT THE LOOP COUNTER AND 
$562 023106 00127 BNE 1$ ;BRANCH BACK IF 2ND OCTAL GROUP NOT DONE 
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Abd #31 = CHECK BAR WITH CSR CLEAR 
5568 - SBTTL TEST #31 = CHECK BAR WITH CSR CLEAR 
FRAAAAAEAAAAAAAAAERAAAAAAERAAAAAARAAAERAREAAARAARAAAARAERAAEREREEe 
T8TEST 31 CHECK BAR WITH CSR CLEAR 
ce 
te THIS TEST CHECKS THAT BAR BIT 0 IS CLEAR WITH CSR CLEAR (CSR=0). 
** 
MITIIIIIIITIIIIITITI TIT I LITT Ti TTiiiiitiii titi ii ii iT TTT Titi 
023110 TST31: 
023110 000004 SCOPE sPROCESS LOOPING AND TEST NUMBER INCREMENT 
023112 012737 023146 001310 MOV #999$ ,SLPERR TSET L LOOP ON ERROR TO 999$ 
023120 032777 004000 156212 BIT #BIT11,aSwR 78& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
023126 001407 BEQ 10018 388 BRANCH IF NOT. 
023130 104401 023136 TYPE 1000$ 88 TYPE: ‘T # 31 
023134 000404 BA 001$ 388 GET OVER ASCII 
023136 124 040 043 10008: rg /T # 31/<CRLF> ;8& THE ASCII MESSAGE 
023146 1001$: 
5569 023146 004737 003646 999$: JSR PC,CLENUP ae it TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
5570 023152 012777 001360 157340 MOV #STMPO ,ABAR [PUT AN ADDRESS IN a 
5571 023160 012777 000001 157334 MOV #G0,aCSR 3SET JUST THE GO BIT TO CLEAR THE READY BIT 
5572 023166 017737 157330 00256C MOV @CSR,RCSR “MOVE RECEIVED DATA TO RCSR 
5573 023174 001403 BEQ 1$ ‘BRANCH AROUND ERROR IF EQUAL TO ZERO 
5574 023176 005037 002572 CLR ECSR sMOVE EXPECTED DATA TO ECSR 
5575 023202 104040 ERROR +40 3CSR IS WRONG 
76 023204 017737 157310 002566 1$: MOV @BAR ,RBAR “MOVE RECEIVED DATA TO RBAR 
5577 023212 032737 000001 002566 BIT #81T0,RBAR SEE IF THIS BIT IS CLEAR 
5578 023220 001407 BEQ TST32 sBRANCH TO NEXT TEST IF IT WAS 
5579 023222 013737 002566 002600 MOV RBAR ,EBAR sMOVE EXPECTED DATA TO EBAR 
5580 023230 042737 000001 002600 BIC walt, EBAR ;CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 


5581 023236 104044 ERROR :BAR IS WRONG 
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TEST #32 = TEST 7 SINGLE DATI NON BURST MODE TRANSFERS 


5588 -SBTTL TEST #32 = TEST 7 SINGLE DATI NON BURST MODE TRANSFERS 
J RAEAAARERAEEAAAREREAREAREEEREEAERARAEEREERAREREEERERERERERRRRREEEEE 
tSTEST 32 TEST 7 SINGLE DATI NON BURST MODE TRANSFERS 
** 
te THIS TEST DOES 7 BIT PATTERNS OF SINGLE DATI NON BURST MODE TRANSFERS, 
j* AND THAT THEY ARE DONE PROPERL 
** 
: REKRAKAAAEKEKEEAARAEAAAAAAAEARAAEAARARAARARARAAAAARAAEARARAAARAAREEEEEEE 
023240 T$T32: 
023240 000004 SCOPE sPROCESS LOOPING AND TEST NUMBER INCREMENT 
023242 012737 023312 001310 MOV 49998 SLPERR :SET LOOP ON ERKOR TO 999$ 
023250 032777 004000 156062 BIT mi ,aSwR 88 TEST TO SEE IF TEST NUMBER TRACER ENABLED 
023256 001407 BEQ 1B018 88 BRANCH IF NOT 
023260 104401 023266 TYPE 1000$ :@& TYPE: "'T # 32°° 
023264 000404 BR 1001$ '@& GET OVER ASCII 
923266 124 040 043 10008: “ASCIZ /T # 32/<CRLF> :8& THE ASCII MESSAGE 
023276 1001$: 
5589 023276 012702 000007 1$: MOV #7,R2 :SET UP LOOP COUNTER - DO 7 BIT PATTERNS 
5590 023302 005037 002714 CLR ERRCNT [CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201 
5591 023306 012703 007202 MOV #PATRNS ,R3 :MOVE ADDRESS OF PATTERNS TO 
5592 023312 017737 157210 002532 999$: MOV @DRINV,SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
5593 023320 017737 157204 002534 MOV @DRVS, SDRVS [SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
5594 023326 012777 023470 157172 MOV #3$,aDRINV : INTERRUPT VECTOR TO 4$ 
5595 023334 013777 002540 157166 MOV LEVEL ,@DRVS S INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE 
5596 023342 005037 177776 CLR PSW ‘LET THE DR11 INTERRUPT | 
5597 023346 012777 010000 157146 MOV #MA .aCSR :D0 AN INIT BY SETTING AN 
5598 023354 005077 157142 CLR acsR [CLEARING THE CSR MAINTENANCE BIT 
5599 023360 012777 177777 157130 MOV #-1,awWCcR [SET UP FOR 1 TRANSFER 
5600 023366 012777 002612 157124 MOV #NPR1, BAR :TRANSEER FROM BUS ADDRESS IN NPR1 
5601 023374 005077 157124 CLR @BDR [GET READY TO RECEIVE DATA 
5602 023400 011337 002612 MOV (R3) ,NPR1 [SET UP TRANSFER DATA 
5603 023404 012777 000110 157110 MOV #F3+1E,aCSR :SET THE NON BURST (FNCT3) AND IE 
5604 023412 052777 000401 157102 BIS #CY+GO.aCSR :SET THE CYCLE AND GO BITS 
5605 023420 005037 002660 CLR TIME ZCLEAR THE TIME LOCATION FOR WAIT LOOP 
5606 023424 005237 002660 2s: INC TIME S INCREMENT UNTIL WE GET TO ZERO AGAIN 
5607 023430 001375 BNE 2$ [BRANCH BACK IF WE AREN'T TH HERE YET 
5608 023432 013777 002532 157066 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5609 023440 013777 002534 157062 MOV SDRVS ,@DRVS [RESTORE LOCATION USED AS THE INTERRUPT PS 
5610 023446 017737 157050 002560 MOV acSR.RCSR [MOVE RECEIVED DATA TO RCSR 
5611 023454 011337 002604 MOV (R3) ,ENPR1 [MOVE PATTERN TO ENPR1 
5612 023460 104035 ERROR +35 ‘DR11 FAILED | To INTERRUPT 
5613 023462 005077 157034 CLR acsR [CLEAR THE CSR TO DO AN INIT 
5614 023466 000450 BR 5$ ‘BRANCH TO SEE IF THERE ARE ANY MORE PATTERNS TO CHECK 
5615 023470 062706 000004 3$: ADD #4,SP [CLEAN STACK AFTER INTERRUPT 
5616 023474 013777 002532 157024 MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5617 023502 013777 002534 157020 MOV SDRVS ,@DRVS TRESTORE LOCATION USED AS THE INTERRUPT PS 
5618 023510 004737 004064 JSR PC ERRCHK ZCLEAR IE, CHECK FOR ERROR 
5619 023514 104021 ERROR +21 TERROR BIT SHOULD HAVE BEEN CLEAR 
5620 023516 017737 156776 002566 MOV @BAR RBAR ZMOVE RECEIVED DATA TO RBAR 
5621 023524 012737 002615 002600 MOV #NPRI+3,EBAR sMOVE EXPECTED DATA TO 
3622 023532 017737 156766 002564 MOV @BDR,RBDR :MOVE RECEIVED DATA TO RB 
5623 023540 011337 002576 MOV (R3) ,EBDR sMOVE EXPECTED DATA TO EBDR 
5624 023544 017737 156746 002570 MOV aWCR.RWCR sMOVE RECEIVED DATA TO RWCR 
5625 023552 005037 002602 CLR EWCR :MOVE EXPECTED DATA TO EWCR 
5626 023556 023737 002566 002600 CMP RBAR,EBAR SCOMPARE RECEIVED WITH EXPECTED 
5627 023564 001010 BNE 4$ [BRANCH IF WRONG 









TEST #32 = TEST 7 SINGLE DATI NON BURST MODE TRANSFERS 
5628 023566 S314 002564 002576 CMP 
Oo5737 002570 002602 CMP 
001401 


4$: 
000002 : ADD 


RBDR,EBDR 
RWCR,EWCR 
5$ 


+211 
#2,R3 
Re 


999$ 
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AS yey ype tha WITH EXPECTED 

{COMPARE RECEIVED WITH EXPECTED 

BRANCH IF OK 

:CSR_AND-OR _WCR AND-OR BAR ARE INCORRECT 


: INCREMENT TO NEXT gti 2 


:DECREMENT THE LOOP 


COUNTER 
7BRANCH BACK IF NOT ZERO YET 


SEQUENCE 


120 


E 10 
CZDRLDO-DR11_ GEN NPR INTFC MACRO M1113 O2-NOV-81 16:08 PAGE 116 SEQUENCE 121 
TEST #33 = TEST STRING OF 200 DATIS BURST MODE XFERS 


5641 .SBTTL TEST #33 ~ TEST STRING OF 200 DATIS BURST MODE XFERS 
FARRAR EERE RERAEAERARREREEREREERERE 
TSTEST 33 TEST STRING OF 200 DATIS BURST MODE XFERS 
ot 
ie THIS TEST DOES 200 DATI TRANSFERS IN BURST MODE. 
** 
*: : RERAEAEAAEAARAEARAAAERAAAAEAAEKEAARAAEAKAAAEAAAERERARRAERAAARAEAAARAAEEREE 
023620 1$133: 
023620 000004 SCOPE ;PROCESS LOOr"NG AND TEST NUMBER INCREMENT 
023622 012737 023656 001310 MOV #999$,S$LPERR  :SET LOOP O° cRROR TO 999S 
023630 032777 004000 155502 BIT wT! 11,aSwR 88 TEST Te ste IF TEST NUMBER TRACER ENABLED 
023636 001407 BEQ 1001$ 88 BRANCH IF NOT 
023640 104401 023646 TYPE 1000$ :06 TYPE: 7 # 33 
023644 000404 BR {001$ *@& GET OVER ASCII 
023646 124 040 043 10008: “ASCIZ /T # 33/<CRLF> :8& THE ASCII MESSAGE 
023656 1001$: 
5642 023656 004737 003646 999$: JSR PC, CLENUP ; SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
5643 023662 012737 000200 002622 MOV #200, BUFLEN ‘LENGTH OF BUFFER=200 
5644 023670 004737 003302 JSR PC LODBUF “LOAD THE BUFFER WITH INCREMENTING PATTERN 
5645 023674 012737 177600 002630 MOV #-200,WCLEN [PREPARE NUMBER FOR WCR 
5646 023702 013777 002630 156606 MOV WCLEN, awWCR ‘SET UP 
5647 023710 013777 002616 156602 MOV INBUF , @BAR SET Up BAR 
5648 023716 412777 177777 156600 MOV #-1, aBDR ‘MAINT AIDE 
5649 023724 017737 156576 002532 MOV @DRINV, SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
5650 023732 017737 156572 002534 MOV @DRVS, SDRVS ‘SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
5651 023740 012777 024050 156560 MOV #2$,aDRINV SINT VECTOR 
5652 023746 013777 002540 156554 MOV LEVEL ,aDRVS ZINTERRUPT STATUS TO LEVEL OF DEVICE 
5653 023754 005037 177776 CLR PSW ‘LET THE DR11 INTERRUPT 
5654 023760 012777 000100 156534 MOV #IE,aCSR 3SET INTERRUPT ENABLE 
5655 023766 052777 000401 156526 BIS #CY+GO,aCSR CLE, GO 
5656 023774 012737 001000 002660 MOV #1000, TIME ‘WAIT FOR INTERRUPT 
5657 024002 005337 002660 1$: DEC TIME : DECREMENT UNTIL WE REACH ZERO 
8 024006 001375 BNE 1$ ‘BRANCH BACK IF NOT ZERO 
5659 024010 013777 002532 156510 MOV SDRINV,@DRINV sRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
024016 013777 002534 156504 MOV SDRVS ,aDRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
5661 024024 017737 156472 002560 MOV @CSR,RCSR [MOVE RECEIVED DATA TO RCSR 
5662 024032 104035 ERROR +35 [DR11 FAILED TO INTERRUPT 
5663 024034 012777 010000 156460 MOV #MA,aCSR ‘SET THE MAINTENANCE BIT AND 
5664 024042 005077 156454 CLR acsR [CLEAR THE CSR TO DO AN INIT 
5665 024046 000426 BR TST 34 ‘BRANCH TO NEXT TEST 
5666 024050 062706 000004 2$: ADD #4, SP ‘CLEAN UP STACK AFTER INTERRUPT 
5667 024054 013777 002532 156444 MOV SDRINV, s@DRINV SRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
024062 013777 002534 156440 MOV SDR SRESTORE LOCATION USED AS THE INTERRUPT PS 
5669 024070 004737 003356 JSR IN TY 7GO CLEAR IE, CHECK ERROR, READY, wcR=0 AND BAR 
5670 024074 104051 ERROR ost :CSR_AND-OR MCR AND-OR BAR ARE INCOREC 
5671 024076 017737 156422 002564 MOV @BDR.RBDR ‘MOVE RECEIVED DATA 0 RBDR 
5672 024104 022737 000177 002564 CMP #177.RBDR *CHECK THAT WORD #200 OF INBUF IS IN BDR 
5673 024112 001404 BEQ TST34 ‘BRANCH TO NEXT DEST IF IT IS 
5674 024114 012737 000177 002576 MOV #177, EBDR ‘MOVE EXPECTED DATA TO EBDR 
5675 024122 104045 ERROR +45 *BAD DATA IN BDR 


eS 


F 10 
oS 5a Piel GEN_NPR INTFC MACRO M1113 O2-NOV-81 16:08 PAGE 117 SEQUENCE 122 
T #34 = TEST 7 SINGLE DATO NON BURST MODE TRANSFERS 


5682 .SBTTL TEST #34 = TEST 7 SINGLE DATO NON BURST MODE TRANSFERS 
J RARER AAEAAARAEEERAREREREREEEERERERAERERERAERAEREREEREREEEERAEKEEREE 
SRTEST 34 TEST 7 SINGLE DATO NON BURST MODE TRANSFERS 
ie 
i THIS TEST DOES 7 PATTERNS OF SINGLE DATO NON BURST MODE TRANSFERS. AND 
: THAT THEY ARE DONE PROPERL 
-* 
*: FEAR AREERARAREREREREAERAEEERERAAERAREAEEARERAERAERAAEERAEEEREREEEEEE 
024124 TS134: 
024124 000004 SCOPE ;PROCESS LOOPING AND TEST NUMBER INCREMENT 
024126 012737 024176 001310 MOV #999$,$LPERR  :SET LOOP ON ERROR TO 999 
024134 032777 004000 155176 BIT #BITII-aSuR EE TEST TO SEC IF TEST NUMBER TRACER ENABLED 
024142 001407 BEQ =: 1001$ :@& BRANCH IF NOT 
024144 104401 024152 TYPE —, 10008 :8& TYPE: “'T # 34 
024150 000404 BR 001$ :8& GET OVER ASCII 
026152 124040043 10008: .ASCIZ /T # 34/<CRLF> :0& THE ASCII MESSAGE 
024162 10018: 
5683 024162 012702 000007 1$: MOVs #7,R2 :D0 7 BIT PATTERNS 
5684 024166 005037 002714 CLR = ERRCNT ZCLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201 
5685 024172 012703 007202 MOV  —- #PATRNS,R3 MOVE ADDRESS OF PATTERNS TO R3 
5686 024176 017737 156324 002532 999$: MOV  § @DRINV,SDRINV SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
7 024204 017737 156320 002534 MOV  § @DRVS,SDRVS =: SAVE_LOCATION TO BE USED AS THE INTERRUPT PS 
5688 024212 012777 024364 156306 MOV «#38, aDRINV ZINTERRUPT VECTOR TO 3$ 
5689 024220 013777 002540 156302 MOV  LEVEL,@DRVS ==; INTERRUPT STATUS TO LEVEL OF DEVICE 
024226 005037 177776 CLR = BSW LET DR11_ INTERRUPT 
5691 024232 012777 010000 156262 MOV #MA, CSR :D0 AN INIT 
5692 024240 005077 156256 CLR = aC SR ; FORCE ACCESS TO CSR 
5693 024244 012777 177777 156244 MOV #1 ,aWCR T UP FOR 1 TRANSFER 
024252 012777 002612 156240 MOV - #NPR1, @BAR STRANSFER TO BUS ADDRESS IN NPR1 
5695 024260 005037 002612 CLR NPR iGET READY TO RECEIVE DATA 
5696 024264 011377 156234 MOV —-(R3) , @BDR :SET UP TO TRANSFER DATA 
5697 024270 012777 000112 156224 MOV «AF I4F3+IE,aCSR DATO (FNCTI), FNCT3, IE 
5698 024276 052777 000401 156216 BIS #CY+G0,aCSR E, 
5699 024304 012737 001000 002660 mov #1000, TIME CLEAR THE TIME LOCATION FOR WAIT LOOP 
5700 024312 005337 002660 2$: DEC — TIME SDECREMENT UNTIL WE GET BACK TO ZERO 
5701 024316 001375 BNE 28 :BRANCH BACK IF NOT ZERO 
5702 024320 013777 002532 156200 MOV  SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5703 024326 013777 002534 156174 MOV  SDRVS,@DRVS —- ;RESTORE LOCATION USED AS THE INTERRUPT PS 
024334 017737 156162 002560 MOV — @CSR.RCSR :MOVE RECEIVED DATA TO RCSR 
5705 024342 011337 001360 MOV. = (R3) , STMPO :MOVE PATTERN TO STMPO 
5706 024346 104035 ERROR +35 EDRIT_FAILED TO INTERRUPT 
5707 024350 012777 010000 156144 MOV = #MA,@CSR 3SET THE MAINTENANCE BIT AND 
5708 024356 005077 156140 CLR = ack CLEAR THE CSR TO DO AN INIT 
5709 024362 000445 BR 6$ BRANCH TO DO NEXT PATTERN 
024364 062706 000004 3$: ADD #4, SP CLEAN UP STACK FROM INTERRUPT 
5711 024370 013777 002532 156130 MOV  SDRINV.@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5712 024376 013777 002534 156124 MOV SDRVS.@DRVS ©: RESTORE LOCATION USED AS THE INTERRUPT PS 
5713 024404 004737 004064 JSR PC, ERRCHK iCLEAR IE CHECK FOR ERROR 
3714 024410 104021 ERROR +2 ZERROR BIf SHOULD HAVE BEEN CLEAR 
5715 024412 017737 156100 002570 MOV — @WCR,RWCR ;MOVE RECEIVED DATA TO RUCR 
5716 024420 001403 BEQ 4 CH IF IT IS EQUAL TO ZERO 
5717 024422 011337 001362 MOV = (R3),, STMP1 MOVE PATTERN TO $TMPO 
3718 024426 104206 ERROR +206 ;WCR NOT EQUAL TO ZERO 
5719 024430 017737 156064 002566 4$: MOV -— BAR, RBAR iMOVE RECEIVED ADDRESS TO RBAR 
5720 024436 022737 002615 002566 CMP ss #NPR1+3,RBAR ;COMPARE CORRECT BAR WITH BAR CABLE MODE TESTING LEAVES 
$721 ;B1T 0 OF BAR SET. THEREFORE MUST CHECK FOR ODD ADDRESS 
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TEST - TEST 7 SINGLE DATO NON BURST MODE TRANSFERS 


5722 024444 BEQ 5$ sBRANCH IF IT IS OK 
002615 002600 #NPR1+3,EBAR MOVE yt SL DATA TO EBAR 
001362 MOV (R3) ,STMP1 :MOVE PATTERN TO $TMPO 


+207" BAR IS WRONG 
002612 : CMP (R3) ,NPR1 :CHECK FOR CORRECT DAT 
BRANCH IF CORRECT DATA WAS TRANSFERRED 
002604 MOV (R3) ,ENPR1 ;MOVE EXPECTED DATA TO ENPR1 
+210 ;DATA_NOT oct alt wm —- 
000002 : #2,R3 :POINT TO ar BIT PATTERN 
Re COUNT 1 PATTERN N DONE 
5732 024504 00 999$ BRANCH BACK IF NOT DONE 








zee 
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TEST #35 = TEST STRING OR 200 DATOS BURST MODE XFERS 


5738 -SBITL TEST #35 = TEST STRING OR 200 DATOS BURST MODE XFERS 
FRAAARAERERAAERAERAREEAREEREREEEREAERAREEAEEEREREEREEEAREKERERRERERE 
: TEST 35 TEST STRING OR 200 DATOS BURST MODE XFERS 
on THIS TEST CHECKS 200 DATO TRANSFERS IN BURST MODE. 
** 
ITITIIIIIITITITI TIT II ITT ITIL TitiititiiititiiiT tL it tL LL 
024506 TST35: 
024506 000004 SCOPE PROCESS LOOPING AND TEST NUMBER INCREMENT 
024510 012737 024544 001310 MOV #999$, SLPERR LOOP ON ERR 
024516 032777 004000 154614 BIT #B1T11,aSWR Ae TEST TO SEE IF TEST NUMBER TRACER ENABLED 
024524 001407 BEQ 1001$ 88 BR ANCH IF NOT 
024526 104401 024534 TYPE ,1000$ 7@& TYPE: ‘"T # 35 
024532 000404 BR 1001$ 7& GET OVER ASCII 
024534 124 040 043 1000S: “ASCIZ /T # 35/<CRLF> :@& THE ASCII MESSAGE 
024544 1001S: 
5739 024544 005077 155752 999$: CLR sFORCE ACCESS TO CSR 
5740 024550 012737 000200 002622 MOV #500, BUFLEN ;LENGTH OF BUFFER=200 
5741 024556 004737 003302 JSR PC, LOD BUF :LOA THE BUFFER WITH INCREMENTING PATTERN 
5742 024562 013737 002622 002630 MOV BUFLEN,WCLEN PREPARE NUMBER FOR WCR 
5743 024570 005437 002630 NEG WCLEN :2°S COMPLEMENT OF BUFLEN 
5744 024574 013777 002630 155714 MOV WCLEN, awCR :SET UP WCR 
5745 024602 013777 002616 155710 MOV I 3S 
5746 024610 012777 052525 155706 MOV #52525 ,aBDR :SET UP BDR 
5747 024616 017737 155704 002532 MOV @DRINV,SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
5748 024624 017737 155700 002534 MOV a@DRVS, SDRVS sSAVE LOCATION TO BE USED AS THE INTERRUPT PS 
5749 024632 012777 024742 155666 MOV #2$,aDRINV s INTERRUPT VECTOR 
5750 024640 013777 002540 155662 MOV LEVEL, aDRVS ZINTERRUPT STATUS TO LEVEL OF DEVICE 
5751 024646 005037 177776 CLR LET THE DR11 INTERRUPT 
5752 024652 012777 000102 155642 MOV HieeFT, acsR TIE, FNCT1 
753 024660 052777 000401 155634 BIS #CY+GO,aCSR :CYCLE, Go 
024666 012737 001000 002660 MOV #1000, TIME [MOVE WAIT LOOP VALUE TO TIME LOCATION 
5755 024674 005337 00266 1$: DEC TIME :DECREMENT UNTIL WE REACH ZERO 
5756 024700 001375 BNE 1$ [BRANCH BACK IF NOT ZERO 
5757 024702 013777 002532 155616 MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5758 024710 013777 002534 155612 MOV SDRVS ,a@DRVS [RESTORE LOCATION USED AS THE INTERRUPT PS 
5759 024716 017737 155600 002560 MOV acSR,RCSR sMOVE RECEIVED DATA TO RCSR 
5760 024724 104035 ERROR +35 :DR11 FAILED TO INTE 
5761 024726 012777 610000 155566 MOV #MA,aCSR [SET THE MAINTENANCE BIT AND 
5762 024734 005077 155562 CLR acsR :CLEAR THE CSR TO DO AN INIT 
5763 024740 000421 BR TST 36 CH TO NEXT TEST 
5764 024742 062706 000004 2s: ADD #4,SP > CLEAN STACK AFTER INTERRUPT 
5765 024746 013777 002532 155552 MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5766 024754 013777 002534 155546 MOV SDRVS .@DRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
5767 024762 004737 003356 JSR PC, INTA 7GO CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR 
024766 104051 ERROR +51 :CSR AND-OR WCR AND-OR BAR ARE INCORECT 
5769 024770 004737 003716 - JSR PC ,DATOCK [CHECK INBUF 
5770 024774 104046 ERROR +46 ‘BUFFER DATA NOT CORRECT 
5771 024776 004737 004000 JSR PC DATOC2 :G0 BACK TO SUBROUTINE AFTER ERROR RTS IN DATOCK 
5772 025002 104047 ERROR +47 :TOO MANY WORDS WERE TRANSFERED 
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T #36 - TEST STRING OF 200 DATIS NON-BURST 


5778 .SBTTL TEST #36 = TEST STRING OF 200 DATIS NON~BURST MODE 
J RAAARAERERKRERAEERREEEAEEREEERERERREEAREERRERAERKEEREREEEREREEKEE 
:#TEST 36 TEST STRING OF 200 DATIS NON-BURST MODE 
oe THIS TEST DOES 200 DATI TRANSFERS IN NON BURST MODE. 
*® 
5 MeARAAASAASZALALALALALLALLALASALE SEE EEE EEE REE EERE ESET TC eT CTT eT CaS 
025004 18136: 
025004 000004 SCOPE :PROCESS LOOPING AND TEST NUMBER INCREMENT 
025006 012737 025042 001310 MOV #999$,$LPERR | :SET LOOP ON ERROR TO 999 
025014 032777 004000 154316 BIT weit 11, aswR :@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
025022 001407 BEQ 1001$ 88 BRANCH, JF NOT 
025024 104401 025032 TYPE 10008 [@& TYPE: ‘T # 36 
025030 000404 BR 1001$ [88 GET OVER ASCII 
025032 124 040 043 10008: ~ASCIZ /T &t » S6/<CRLFD 7@& THE ASCII MESSAGE 
025042 1001$: 
5779 025042 004737 003646 999$: JSR PC, CLENUP ;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
5780 025046 005077 155450 CLR acsR SFORCE ACCESS TO CSR 
5781 025052 012737 000200 002622 MOV #200, BUFLEN ‘LENGTH OF BUFFER=200 
5782 025060 004737 003302 JSR PC C,LODBUF * LOAD THE BUFFER WITH INCREMENTING PATTERN 
5783 025064 013737 002622 002630 MOV BUFLEN,WCLEN § :PREPARE NUMBER FOR WCR 
5784 025072 005437 002630 NEG WCLEN 2°S COMPLEMENT OF BUFLEN 
5785 025076 013777 002630 155412 MOV WCLEN, awcR SSET-UP W 
5786 025104 013777 002616 155406 MOV INBUF , BAR SET-UP BAR 
5787 025112 012777 177777 155404 MOV #-1, aBDR ‘MAINT AIDE 
5788 025120 017737 155402 002532 MOV @DRINV,SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
5789 025126 017737 155376 002534 MOV aDRVS,SDRVS SSAVE LOCATION TO BE USED AS THE INTERRUPT PS 
5790 025134 012777 025244 155364 MOV #2$,aDRINV SINT VECTOR 
5791 025142 013777 002540 155360 MOV LEVEL, @DRVS : INTERRUPT STATUS TO LEVEL OF DEVICE 
5792 025150 005037 177776 CLR PSW [LET THE DR11 INTERRUPT 
5793 025154 012777 000110 155340 MOV #F3+1E,aCSR SFNCT3, IE 
5794 025162 052777 000401 155332 BIS #CY +60, acsr ICYCLE, GO 
5795 025170 012737 001000 002660 MOV #1000. :SET WAIT LOOP COUNTER 
025176 005337 002660 1$: DEC [DECREMENT UNTIL WE REACH ZERO 
5797 025202 001375 BNE is [BRANCH BACK IF NOT ZERO 
5798 025204 013777 002532 155314 MOV SDRINV,@DRINV ;RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5799 025212 013777 002534 155310 MOV SDRVS ,aDRVS =RESTORE LOCATION USED AS THE INTERRUPT PS 
5800 025220 017737 155276 002560 MOV acCSR,RCSR ;MOVE RECEIVED DATA TO RCSR 
5801 025226 104035 ERROR +35 DR11 FAILED TO INTERRUPT 
5802 025230 012777 010000 155264 MOV #MA,aCSR SET THE MAINTENANCE BIT AND 
5803 025236 005077 155260 CLR acs ‘CLEAR THE CSR TO DO AN INIT 
5804 025242 000426 BR TST37 ‘BRANCH TO NEXT TEST 
5805 025244 062706 000004 2$: ADD #4,SP sCLEAN UP STACK AFTER INTERRUPT 
5806 025250 013777 002532 155250 MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5807 025256 013777 002534 155244 MOV SDRVS ,aDRVS SRESTORE LOCATION USED AS THE INTERRUPT 
5808 025264 004737 003356 JSR PC, INTA 360 CLEAR IE, CHECK ERROR, READY, WCR= : AND BAR 
5809 025270 104051 ERROR +51 SR WCR AND-OR BAR ARE INCORECT 
5810 025272 017737 155226 002564 MOV @BDR,RBDR “MOVE RECEIVED DATA TO RBDR 
5811 025300 022737 000177 002564 CMP #177.RBDR :CHECK THAT WORD 4 #200 OF INBUF IS IN BDR 
5812 025306 001404 BEQ TS137 BRANCH TO NEXT TEST 
5813 025310 012737 000177 002576 MOV #177, EBDR sMOVE EXPECTED DATA TO EBDR 
5814 025316 104045 ERROR +45 *BAD DATA IN BDR 
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TEST #37 = TEST STRING OF 200 DATOS NON-BURST MODE 


5820 .SBTTL TEST #37 = TEST STRING OF 200 DATOS NON-BURST MODE 
FRA RERERAAEEAREERAEAEEREAEAREAAEREREREEREREEEEREEREREREREEE 
TSTEST 37 TEST STRING OF 200 DATOS NON-BURST MODE 
tt 
te THIS TEST DOES 200 DATOS IN NON BURST MODE. 
**® 
*: REAR ERAAERAEAAAKRERAEEEEAEEEKKAERAAAEAKRAAAREEARAAAAREREEEEREKKEKE 
025320 18137: 
025320 000004 SCOPE :PROCESS LOOPING AND TEST NUMBER INCREMENT 
(25322 012737 025356 001310 MOV 49998 SLPERR :SET LOOP ON ERROR TO 
025330 032777 004000 154002 BIT T11,aSWR [@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
025336 001407 BEQ 1B01S :@& BRANCH IF NOT 
025340 104401 025346 TYPE 1000$ [88 TYPE: ‘'T # 37° 
025344 000404 BR 1001$ *@& GET OVER ASCII 
025346 124 040 043 10008: -ASCIZ /T # 37/<CRLF> 388 THE ASCII MESSAGE 
025356 1001$: 
5821 025356 004737 003646 999$: JSR PC, CLENUP ; SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
5822 025362 005077 155134 CLR acsR SFORCE ACCESS TO CSR 
5823 025366 012737 000200 002622 MOV #200, BUFLEN ‘LENGTH OF BUFFER=200 
5824 025374 004737 003302 JSR PC ,LODBUF ‘LOAD THE BUFFER WITH INCREMENT ING PATTERN 
$825 025400 013737 002622 002630 MOV BUF LEN, WCLEN ZPREPARE NUMBER WCR 
5826 025406 005437 002630 NEG WCLEN 12'S COMPLEMENT OF R AUELEN 
5827 025412 013777 002630 155076 MOV WCLEN, awcR [SET UP WCR 
5828 025420 013777 002616 155072 MOV INBUF . @BAR :SET UP BAR 
5829 025426 012777 052525 155070 MOV #52525 ,,aBDR [SET UP BDR 
830 025434 017737 155066 002532 MOV @DRINV,SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
5831 025442 017737 155062 002534 MOV QDRVS, SDRVS SSAVE LOCATION TO BE USED AS THE INTERRUPT PS 
$832 025450 012777 025560 155050 MOV #2$, aDRINV S INTERRUPT VECTOR 
5833 025456 013777 002540 155044 MOV LEVEL. aDRVS ‘INTERRUPT STATUS TO BEVEL OF DEVICE 
025464 005037 177776 CLR PSW ‘LET THE DR11 INTERRUP 
5835 025470 012777 000112 155024 MOV MP VSE SOE @CSR :FNCT1, FNCT3, IE 
5836 025476 052777 000401 155016 BIS #CY+G0,aCSR SCYCLE, GO 
5837 025504 012737 001000 002660 MOV #000, TIME ‘SET WAIT LOOP COUNTER 
5838 025512 005337 002660 1$: DEC [DECREMENT UNTIL WE GET TO ZERO 
5839 025516 001375 BNE a" [BRANCH BACK IF NOT ZERO 
5840 025520 013777 002532 155000 MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5841 025526 013777 002534 154774 MOV SDRVS ,a@DRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
2 025534 017737 154762 002560 MOV aCSR.RCSR [MOVE RECEIVED DATA TO RCSR 
5843 025542 104035 ERROR +35 [DR11 FAILED TO INTERRUPT 
5844 025544 012777 010000 154750 MOV WMA, aCSR ‘SET THE MAINTENANCE BIT AND 
5845 025552 005077 154744 CLR acsR ‘CLEAR THE CSR TO DO AN INIT 
5846 025556 000421 BR TST40 [BRANCH TO NEXT TEST 
062706 000004 2s: ADD #4 ,SP *CLEAN UP STACK AFTER INTERRUPT 
5848 025564 013777 002532 154734 MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
5849 025572 013777 002534 154730 MOV SDRVS ,aDRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
25600 004737 003356 JSR PC, INTA 'GO CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR 
5851 025604 104051 ERROR +51 [CSR AND-OR WCR AND-OR BAR ARE INCORECT 
5852 025606 004737 003716 JSR PC ,DATOCK :CHECK INBUF 
5853 025612 104046 ERROR +46 ‘BUFFER DATA NOT CORRECT 
5854 025614 004737 004000 JSR PC. DATOC2 :GO BACK TO SUBROUTINE AFTER ERROR RTS IN DATOCK 
5855 025620 104047 ERROR +47 [TOO MANY WORDS WERE TRANSFERED 
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END OF DEVICE PASS E 

585 .SBTTL END OF DEVICE PASS ROUTINE 
585 :2 RAERRARARAAAEAAAEAAKAAAAEAAERAEEAARAAAAAERAKRAAAARARARARAEARARERAERAERAE 
5858 025622 000004 ENDEV: SCOPE :FOR POSSIBLE LOOP ON TEST 
5859 025624 005237 026010 INC PREOP S INCREMENT DEVICE PASS COUNTER :DPMO01 

025630 005037 001302 CLR $TSTNM -  $CLEAR TEST NO. COUNT FOR SCOPE ROUTINE 
5861 025634 022737 000001 002414 CMP #1,QTYBRD 71S THERE MORE THAN 1 BOARD UNDER TEST? 
5862 025642 001450 BEQ *BRANCH IF NO 
5863 025644 005737 001312 TST SERTTL SEE 7 THERE WERE ANY ERRORS 
5864 025650 001013 BNE 2$ ‘BRANCH AROUND EOP TEST IF SO 
5865 025652 004737 026012 JSR PC ,DOWEPR :G0_ SEE IF We SHOULD PRINT THE EOP ;DPMOO1 
5866 025656 000442 BR s$ “HERE IF *DPMOO1 
5867 025660 000411 BR 3$ *HERE IF *DPMOO1 
5868 025662 032737 000077 026010 BIT #77,,PREOP THERE IF ENABLED - DO WE PRINT THIS EOP?:DPMO01 
5869 025670 001035 BNE ‘BR :DPMOO1 
5870 025672 005037 026010 CLR PREOP CLEAR ThE DEVICE PASS COUNTER ‘DPMOO1 
5871 025676 000402 BR 3$ ‘BRANCH = DPMOO1 
5872 025700 104401 001405 2$: TYPE ~|$CRLF ZTYPE A <CRLF> 
5873 025704 104401 037424 3$: TYPE BOARD ‘TYPE: "BOARD # ' 
5874 025710 013746 001422 MOV $UNIT,-(SP) +:SAVE SUNIT FOR TYPEOUT 

025714 104405 TYPDS 3760 TYPE=-DECIMAL ASCII WITH SIGN 
5875 025716 104401 040341 TYPE :TYPE: *° TESTING COMPLETE, PASS #° :DPMO01 
5876 025722 013746 002716 MOV gpasso <{sP) [MOVE MAJOR PASS COUNTER TO STACK = DPMOO1 
5877 025726 013746 001416 MOV $PASS,-(SP) [MOVE PASS NUMBER TO STACK :DPMOO1 
5878 025732 104414 TYPDE ‘TYPE NUMBER IN EXTENDED DECIMAL =DPMOO1 
5879 025734 005737 001312 TST SERTTL [SEE IF ANY ERRORS THIS DEVICE 
5880 025740 001407 BEQ 4$ :BRANCH AROUND TOTAL ERRORS MESSAGE IF NONE 
5881 025742 104401 036350 TYPE ETDEV ‘TYPE: ° = TOTAL ERRORS THIS DEVICE = ' 
5882 025746 013746 0601312 MOV $ERTTL.-(SP) | =MOVE NUMBER OF ERRORS TO THE STACK 
5883 025752 104405 TYPDS :GO TYPE THE NUMBER 
5884 025754 004737 003126 JSR PC, ERCAPT [G0 LOG THE UNIT #, PASS # & # OF ERRORS THIS DEVICE 
5885 025760 104 001405 4$: TYPE , SCRLF sTYPE A <CRLF> 
5886 025764 005237 001420 5$: INC $DEVCT ¢ INCREMENT DEVICE COUNTER 
5887 025770 023737 002414 001420 CMP QTYBRD,S$DEVCT ALL DEVICES TESTED? 
5888 025776 001423 BEQ $EOP :GO TO END OF PASS ROUTINE IF SO 
5889 026000 005237 001422 INC SUNIT S INCREMENT THE UNIT NUMBER 
5890 026004 000137 012370 JMP TSTDEV :GO TEST NEXT DEVICE 
3891 026010 000000 PREOP: .WORD 0 ‘DEVICE PASS COUNTER :DPMO01 
5893 026012 105737 002706 DOWEPR: TSTB _— EOPLOC :SEE IF EOP MESSAGES ARE TO PRINT :DPMOO1 
5894 026016 001406 BEQ 1$ ‘BRANCH IF SO :DPMO01 
5895 026020 105737 032555 TSTB —« CHARCT [SEE IF A CHARACTER IS WAITING =DPMOO1 
5896 026024 001407 BEQ 3$ ‘BRANCH IF NOT ‘DPMOO1 
5897 026026 062716 000002 ADD #2, (SP) :RETURN TO 2ND RETURN LOCATION [DPMOO1 
5898 026032 000402 BR 2$ ETURN = DPMOO1 
5899 026034 062716 000004 1$: ADD #4, (SP) ‘FUDGE RETURN TO TEST FOR EOP PRINT *DPMOO1 
5900 026040 105037 032555 2$: CLRB —s- CHARCT SCLEAR CHARCT =DPMOO1 


5901 026044 000207 — 3$: RTS PC ;RETURN TO USER :DPMO01 


SO 
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END OF PASS ROUTINE 
5902 -SBTTL END OF PASS ROUTINE 
IT ITISIII IIIT IIIT Titi Tit iti ittitititiiitiiiiitititititiiity 
: INCREMENT THE PASS NUMBER ($PASS) 
s*TYPE ‘END PASS #XXXXX TOTAL NUMBER OF a SINCE LAST REPORT yvyyyy*' 
+ WHERE XXXXX AND YYYYY ARE DECIMAL NUMBER 
:eIF THERES A <5 pel GO TO IT 
:e]F THERE ISN'T JUMP TO GOAGIN 
026046 SEOP: 
026046 000004 SCOPE 
026050 005037 001302 CLR STSTNM + ZERO THE TEST NUMBER 
026054 005237 001416 INC $PASS ; INCREMENT THE PASS NUMBER 
060 100004 BPL 1$ ‘BRAN CH IF STILL POSITIVE 
026062 005037 001416 CLR SPASS >CLEAR SPASS AND 
026066 005237 002716 INC SPASS2 ; INCREMENT OVERFLCW LOCATION 
026072 005327 1$: DEC (PC)+ +; LOOP? 
026074 000001 SEOPCT: .WORD 1 
026076 003116 BGT $DOAGN i7YES 
026100 012737 MOV (PC)+,a(PC)+ ;ZRESTORE COUNTER 
026102 000001 SENDCT: .WORD 1 
026104 026074 -WORD S$EOPCT 
026106 005737 001312 TST SERTTL 7SEE IF ANY ERRORS wae PASS 3: DPMO01 
026112 001012 BNE 2s [BRANCH IF SO TO PRINT EOP ;DPMO01 
026114 004737 026012 JSR PC ,DOWEPR 3G0 SEE 4 a as IS TO PRINT :DPMO01 
026120 000475 BR $GET42 HERE IF :DPMO01 
026122 000406 BR 2$ sHERE IF SO. :DPMO01 
026124 032737 000077 026010 BIT #77 ,PREOP THERE IF ENABLED - DO WE PRINT THIS EOP?:DPMOO1 
026132 001070 BNE $GET42 *BRAN CH IF SO :DPMOO1 
ase! ze 005037 026010 2$ CLR PREOP ;CLEAR THE DEVICE PASS COUNTER ;DPM001 
026140 104401 026146 TYPE -65$ sz TYPE ASCIZ STRING 
026144 000407 BR 64$ 3:GET OVER THE ASCIZ 
026146 012 015 105 +65$: ooare <12><15>/END PASS #/ 
026164 64S: 
026164 013746 002716 MOV SPASS2,-(SP) sMOVE UPPER PASS COUNT TO STACK ;DPMO01 
026170 013746 001416 MOV SPASS,-(SP) [MOVE PASS COUNT TO STACK ;DPMO01 
026174 104414 TYPDE :GO TYPE PASS COUNT IN EXTENDED DECIMAL ;DPMO01 
026176 005737 001312 TST SERTTL :SEE IF ANY ERRORS THIS PASS 7 DPMO01 
026202 001442 BEQ $GET [BRANCH IF NOT :DPMOO1 
6204 022737 000001 002414 CMP #1,QTYBRD sARE WE TESTING 1 BOARD? = DPMOO1 
026212 001002 BNE 3$ [BRANCH IF NOT - LOGGING IS DONE = DPMOO1 
ogee is 004737 003126 33 JSR PC,ERCAPT 3GO LOG THE UNIT #, PASS # & # OF ERRORS THIS DEVICE 
026220 104401 026226 TYPE ,67$ ii TYPE ASCIZ STRING 
026224 000424 BR 66$ T OVER THE ASCI2Z 
026226 040 040 124 67$: rey / TOTAL ERRORS THIS PASS ALL MODULE(S) / 
026276 66$: 
026276 013746 001312 MOV SERTTL,-(SP) 3 va SERTTL FOR TYPEOUT 
026302 104405 TYPDS 360. TYPE DECIMAL ASCII WITH SIGN 
026304 005037 001312 CLR SERTTL LEAR ERROR TOTAL 
026310 104401 001405 $GET: TYPE -SCRLF :ETVBE ae Riya LINE FEED 
026314 013700 000042 $GET42: MOV a442,R0 3:GET MONITOR A ORE SS 
026320 001405 BEQ SOOAGN ; BRANCH IF NO MONIT OR 
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END OF PASS ROUTINE 


026322 000005 RESET HS i hon ier 
026324 004710 SENDAD: JSR PC, (RO) £260 1TOR 
026326 000240 NOP AVE O ROOM 
026330 000240 NOP ‘POR 
026332 000240 NOP 3ACT11 
026334 SDOAGN: 
| 026334 000137 JMP a(PC)+ 7 RETURN 
026336 026344 SRTNAD: .WORD GOAGIN 
| 026340 377 377 000 S$ENULL: eA -1,°1.0 sZNULL CHARACTER STRING 
5903 026344 005037 001420 GOAGIN: CLR SDEVCT CLEAR DEVICE COUNT 
022737 000001 002414 CMP #1, QTYBRD 318 THERE ONLY ONE DEVICE UNDER TEST? 
1008 BNE RSTRT F NOT 
5906 026360 000137 012556 JMP REINIT :60 DO ANOTHER PASS 
5907 026364 005037 001422 RSTRT: CLR SUNIT 7CLEAR UNIT NUMBER 
5908 026370 000137 012356 JMP BEGINI 60 BEGIN TEST OF NEXT DEVICE 


5904 026350 
5905 026356 00 


a a — 
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TYPE ROUTINE 


5909 


026374 
0 0 
aseene 


026554 
026560 


105737 


o~- OS 


001357 


000002 
0000061 


000100 


026444 
033634 


000040 


000002 
000011 
000200 


026736 


026606 
001356 


001354 
000001 


026606 
026736 
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001430 
001431 


001431 


-SBTTL 


TYPE ROUTINE 


SEQUENCE 130 


FUAAAAAAAAAAARAAAAAAARAHEAAAAAAAAAAAARAAAAAAARARAARERAAAAAERAEEE 


 SROUT INE TO TYPE ASCIZ eer t vor MUST TERMINATE WITH A 0 AF 


> * THE att WILL INSERT A 
SNU 


; *NOTE1 
; *NOTE 
; *NOTE 


: “CAL 
i) “USING GA TRAP INSTRUCTION 


OR 


61$: 
62$: 
2s: 


60$: 
3$: 


4$: 


5$: 
6$: 


7$: 


TYPE 
ME SADR 


ONTAINS THE CHARACTER TO BE 


NULL CHARACTERS AFTER A LINE FEED. 
USED AS THE FILLER CHARACTER. 


LL 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


-MESADR 
STPFLG 


SP) 
#APTENV. o SENV 


#APTSPOOL , SENVM 
62$ 


RO.61$ 
PC,SATY3 


#APTCSUP ,SENVM 


(RO) +,=(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2, (SP) 
#HT , (SP) 
CRLF, (SP) 


(SP) + 


SCHARCNT 
es 


PC ,STYPEC 
SFILLC,(SP)+ 


SNULL ,~ (SP) 
1(SP) 
6$ 


» YC. STYPEC 


CHARCNT 
7$ 


zsMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


231$ ee A TERMINAL ? 
AL) IF NO TERMINAL 


sSAVE RO 
SIGET ADDRESS OF ASCIZ STRING 
2 RUNNI NG IN APT 
:NO,GO CHECK FOR “o as 
: SPOOL rd oe TO AP 
ees GO CHECK FOR CONSO LE 
sSET UP mire | syd FOR APT 


ESS 

START Sere 4 SUPPRESSED 

ii VES, SKIP TYPE OUT 

ee PUSH CHARACTER TO a TYPED ONTO STACK 
;BR IF IT ISN'T THE TERMINATOR 

sc1F TERMINATOR POP IT OFF THE STACK 


sRESTORE RO 

: ADJUST RETURN PC 
RETURN 

+ : BRANCH IF <HT> 

; BRANCH IF NOT <CRLF> 


7:POP_ <CR><LF> Feuty 
7s TYPE A CR AND L 


22 CLEAR CHARACTER COUNT 
T_NEXT CHARACTER 
PE me CHARACTE 


mnma~aom 


NEX 
hae "NEEDED 


NULL C 
S A NULL NEED TO BE TYPED? 
IF NO--GO POP THE NULL OFF OF STACK 
£360 TYPE A NULL 
th al COUNT ks A COUNT 


eee 

e Bees 
esson-aer 
Dao 


($e 


8.11 
| CZDRLDO=-DR11 GEN NPR INTFC MACRO M1113 O02-NOV-81 16:08 PAGE 123-1 SEQUENCE 
TYPE ROUTINE 


HORIZONTAL TAB PROCESSOR 


026562 112716 000040 8$: mMOVB = #"-_« (SP) ; sREPLACE TAB WITH SPACE 

026566 004737 026606 9$: JSR PC, $TYPEC ii TYPE A SPACE 
026572 132737 000007 026736 BITB #7.$CHARCNT :7BRANCH IF NOT AT 

001372 BNE 9$ : STOP 

026602 005726 TST (SP)+ ;:POP SPACE OFF STACK 

02 000724 BR 2$ :GET NEXT CHARACTER 

26606 105777 152536 STYPEC: TSTB a$TPS S:WAIT UNTIL PRINTER IS READY 
026612 100375 BPL STYPEC 
026614 116677 000002 152530 MOVB 2(SP),a$TPB r:LOAD CHAR TO BE TYPED INTO DATA REG. 
026622 105777 152516 TSTB  aSTKS 3SEE IF KEYBOARD IS TALKING. 
026626 100027 BPL 2$ + BRANCH IF IT ISN'T. 

026630 117737 152512 032555 MOVB  SSTKB,CHARCT :&& PUT CHARACTER IN CHARCT 
026636 142737 000200 032555 BICB #200,CHARCT 788 BIT CLEAR PARITY BIT 

026644 122737 000023 032555 CMPB ss #23, CHARCT :@@ SEE IF THIS IS A *S.. 

026652 001015 BNE ; :BRANCH TO CONTINUE IF IT ISN'T. 
026654 105777 152464 3$: TSTB  a$TKS t:WAIT FOR ANOTHER INPUT. 
026660 100375 BPL 3$ “BRANCH BACK IF NOT READY. 

26662 117737 152460 032555 MOVB a$TKB,CHARCT ‘be PUT CHARACTER IN CHARCT 
026670 142737 000206 032555 BICB  #200,CHARCT [@& BIT CLEAR PARITY BIT. 
026676 122737 000021 032555 CMPB ss #21, CHARCT ee SEE IF THIS IS A “OQ. 
026704 001363 BNE ZBRANCH BACK FOR MORE WAIT IF NOT. 

26706 122766 000015 000002 2s: CMPB ss CR, 2( SP) HIS CHARACTER A CARRIAGE RETURN? 
026714 001003 BNE 1$ CH IF NO 
026716 105037 026736 CLRB § $CHARCNT 3: YES~=CLEAR CHARACTER COUNT 
026722 0004 BR STYPEX T 
026724 122766 000012 000002 1S: CMPBML*F, ge (SP) 3318 CHARACTER A LiNE FEED? 
026732 001402 BEQ $TYP ‘BRANCH IF YE 
026734 105227 INCB Cpe ee ':COUNT THE CHARACTER 
026736 000000 SCHARCNT:.WORD 0 t: CHARACTER COUNT STORAGE 


2 
026740 000207 S$TYPEX: RTS PC 
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BINARY TO OCTAL (ASCII) AND TYPE 


5911 -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


IIIT iiiiiitiiitiiitiiiiiey 

tS THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;#OCTAL (ASCII) NUMBER_AND TYPE IT 

— HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


7 

3* MOV NUM, -(SP) ;NUMBER TO BE TYPED 

3* TYPOS SICAL FOR TYPEOUT 

3* -BYTE WN 33N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3* -BYTE 7 7M=1 

:* 331=TYPE LEADING ZEROS 

:* 370=SUPPRESS LEADING ZEROS 


* 


:*STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 


**CALL: 
2% a4 NUM, = (SP) : ;NUMBER TO BE TYPED 
de YPCN 3i:CALL FOR TYPEOUT 
{4 STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
* 
7* MOV NUM ,-(SP) szNUMBER TO BE TYPED 
se TYPOC 3zCALL FOR TYPEOUT 
026742 017646 000000 $TYPOS: MOV a(SP) ,-(SP) szPICKUP THE MODE 
026746 116637 000001 027165 MOVB 1(SP) ,SOFILL +s LOAD ZERO FILL SWITCH 
026754 112637 027167 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
26760 062716 0000 ADD #2, (SP) + :ADJUST RETURN ADDRESS 
026764 000406 BR S$TYPON 
026766 112737 000001 027165 $TYPOC: MOVB #1,SOFILL 377 SET Ls ZERO FILL SWITCH 
026774 112737 000006 027167 MOVB #6, SOMODE +1 z3SET FOR SIX(6) DIGITS 
27002 112737 000005 027164 $TYPON: MOVB #5, SOCNT SET THE ITERATION COUNT 
027010 010346 MOV R3,-(SP) S:SAVE R3 
027012 010446 MOV R4,-(SP) ZZSAVE R4 
027014 010546 MOV R5,~-(SP) 77 SAVE RS 
027016 113704 027167 MOVB SOMODE+1,R4 7:GET THE NUMBER OF DIGITS TO TYPE 
027022 005404 NEG R4 
027024 062704 000006 ADD #6,R4 so rte Y IT FOR MAX. ALLOWED 
027030 110437 027166 MOVB R4, SOMODE eh IT FOR USE 
027034 113704 027165 MOVB SOFILL,R4 33GET THE weet FILL SWITCH 
027040 016605 000012 MOV 12(SP),R5 3zPICKUP THE INPUT NUMBER 
027044 005003 CLR R3 3:CLEAR THE OUTPUT WORD 
027046 006105 1$: ROL R5 7 zROTATE MSB INTO ‘'C’' 
027050 000404 BR 3$ 7:G0 DO MSB 
027052 006105 2$: ROL R5 7 7FORM THIS DIGIT 
027054 006105 ROL RS 
027056 006105 ROL RS 
27060 010503 MOV R5,R3 
027062 006103 3$: ROL R3 :GET LSB OF THIS DIGIT 
27064 105337 027166 DECB SOMODE ZITYPE THIS DIGIT? 
027070 100016 BPL IF NO 
027072 042703 177770 BIC #177770,R3 33GET RID OF JUNK 
027076 001002 BNE 4$ 
27100 005704 TST R4 i 3 SUPPRESS THIS 0? 
027102 001403 BEQ 5$ F 
7104 005204 4$: INC RS ::DON'T SUPPRESS ANYMORE 0'S 
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BINARY TO OCTAL (ASCII) AND TYPE 
027106 05270 000060 BIS #°0.R3 ;sMAKE THIS DIGIT ASCII 
027112 052703 000040 S$: BIS #’ RB i ASCII wt NOT ALREADY 
027116 11033 027'16¢ MOVB ~=s- R33, 8S +:SAVE FOR TYPING 
027122 104401 02716 TYPE ag 3360 TYPE His DIGIT 
027126 105337 02716 7$: DECB =—-« $OCNT 
027132 003347 BGT 2$ 3 3BR IF MORE TO DO 
027134 002402 BLT 6$ F 
027136 005204 INC R4 3 INSURE LAST aH ISN'T A BLANK 
027140 000744 BR 2$ +:G0 DO THE LAST DIGIT 
027142 012605 6$: MOV (SP)+,R5 RESTORE RS 
027144 012604 MOV (SP)+-RG ; SRESTORE RG 
027146 012603 MOV (SP)+-R3 S:RESTORE R3 
027150 66 000002 000004 MOV 2(SP) 24(SP) [:SET THE STACK FOR RETURNING 
027156 012616 MOV (SP) +. (SP) 
027160 000002 RTI : RETURN 
027162 000 8$ BYTE 0 tISTORAGE FOR ASCII DIGIT 
027163 000 0 sz TERMINATOR FOR TYPE ROUTINE 
27164 000 SOCNT BYTE 0 sz0CTAL DIGIT C 
027165 000 SOFILL: :-BYTE 0 33ZERO FILL SWITCH 
000000 SOMODE: .WORD 0 : NUMBER OF DIGITS TQ TYPE 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


5913 -SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


IPI iiititiiitiiiiiiiiigy 
TRTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
;*SIGNED Fs boat (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 

; *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 

;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 

: #REPLACED WITH SPACES. 


7* MOV NUM, = (SP) 32PUT_THE BINARY NUMBER ON THE STACK 
pe TYPDS 7260 TO THE ROUTINE 


ee IF YOU SHOULD HAVE A NUMBER GREATER THAN 32767 TO PRINT, LOAD THE 
388 MULTIPLE OF 32768 ON THE STACK, THEN THE REMAINDER AS YOU WOULD 
88 ABOVE. FOR INSTANCE, WHEN INCREMENTING A COUNTER TO BE PRINTED, 
;8& TEST FOR NEGATIVE. {IF NEGATIVE, CLEAR THE LOCATION AND INCREMENT 
388 ee OVERFLOW LOCATION. 


OVFNUM,~(SP) 28& PUT OVERFLOW NUMBER ON STACK 


“88 MOV NUM, = (SP) [@& PUT REMAINING NUMBER ON STACK 
88 TYPDE :@& GO TO THE ROUTINE 
027170 012737 000001 001364 $TYPDE: MOV #1,STMP2 :8& SHOW ENTRY AT $TYPDE 
027176 000402 BR $TYPD *8& GO TO ROUT 
027200 005037 001364 STYPDS: CLR $TMP2 [88 SHOW ENTRY AT $TYPDS 
027204 STYPD: 
027204 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
027206 010146 MOV R1.-(SP) *:PUSH R1 ON STACK 
027210 010246 MOV R2.-(SP) +:PUSH R2 ON STACK 
027212 010346 MOV R3,-(SP) +:PUSH R3 ON STACK 
027214 010546 MOV R5.-(SP) 3 ;PUSH_R5_ ON STACK 
027216 012746 020200 MOV #20200,-(SP) [SET BLANK SWITCH AND SIGN 
027222 016605 000020 MOV 20(SP) _RS5 ::GET THE INPUT NUMBER 
027226 100004 BPL 1$ 33BR IF INPUT Is 
027230 005405 NEG R5 TIMAKE THE BINARY NUMBER POS. 
027232 112766 000055 000001 MOVB = #*=, 1 (SP) [:MAKE THE ASCII NUMBER NEG. 
027240 005000 1$: CLR RO 7:ZERO THE CONSTANTS INDEX 
027242 012703 027504 MOV #SDBLK,R3 t:SETUP THE OUTPUT POINTER 
027246 112723 000040 MOVB =o #"-—«, (R$) 4 33SET THE FIRST CHARACTER TO A BLANK 
027252 005002 2s: CLR ‘:CLEAR THE BCD NUMBER 
027254 016001 027474 MOV $DTBL (RO) ,R1 i267 THE CONSTANT 
027260 160105 38: SUB R1,R5 FORM THIS BCD DIGIT 
027262 002402 BLT 4$ [:BR IF DONE 
027264 005202 INC R2 STINCREASE THE BCD DIGIT BY 1 
27266 000774 BR 3$ 
027270 060105 4$: ADD R1,R5 ::ADD BACK THE CONSTANT 
027272 005702 TST R2 S:CHECK IF BCD DIGIT=0 
027274 001002 BNE 5$ S:FALL THROUGH IF 0 
027276 105716 TSTB = (SP) iE STILL DOING LEADING 0'S? 
027 100407 BMI 7$ [:BR IF YES 
027302 106316 5$: ASLB = (SP) 3 MSD? 
027304 103003 BCC 6$ ‘BR IF NO 
027306 116663 000001 177777 MOVB —1(SP) ,=1(R3) i SVES=-SET THE SIGN 
027314 052702 000060 6$: BIS #0. Re +:MAKE THE BCD DIGIT ASCII 
027320 052708 000040 7$: BIS Re 33MAKE_IT A SPACE IF NOT ALREADY A DIGIT 
027324 M022 MOVB Ro (R3)+ :PUT THIS CHARACTER IN THE OUTPUT BUFFER 
027326 005720 TST (RO)+ ::JUST INCREMENTING 
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CONVERT BINARY 


oc? 0 
0273 
0273 


SSSSSs=so 
ooo0o0o-Sco 
= MNAour 
a NO S 

oi aus 
NRO UNIWAIOS 


016666 
012616 
00 

023420 


000010 


177777 
001364 
000020 
027516 


027504 
001364 


000062 
000002 


027513 
000040 
000040 


000002 


001750 
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177776 


000006 


027512 
027504 


000004 


000144 S$DTBL: 
SDBLK: 


10$: 


11$: 


R 
- WORD 
-BLKW 


RO,#10 
2$ 


8$ 
R5,R2 
6 


(SP) + 
-1(SP) ,-2(R3) 
(R 


PC ,EXPAND 
(SP)+,R5 


2(SP) ,6(SP) 
(SF)+,2(SP) 
(SP)+ 


SDBLK+7 
#* ,SDBLK+6 
#° ,$DBLK 


2(SP) ,4(SP) 
(SP)+, (SP) 


SEQUENCE 


23 CHECK THE TABLE INDEX 
3:G0 DO THE NEXT DIGIT 
7:60 TO EXIT 
23GET THE LSD 
O CHANGE TO ASCII 
3 WAS THE LSD THE FIRST NON-ZERO? 


‘BR IF NO 
i EYES-=SET THE SIGN FOR TYPING 
“SET THE TERM 
ite WAS ENTRY AT $TYPDS? 
BRANCH IF 
[8& TEST THE OVERFLOW LOCATION 
[8& BRANCH IF 
[@& GO EXPAND THE DECIMAL NUMBER 


‘Bop STACK INTO R5 
sPOP STACK INTO R3 


:NOW TYPE THE NUMBER 
788 SEE IF ENTRY WAS AT $TYPDS 
78& BRANCH IF 

66 ADJUST THE STACK 


g 
388 REPLACE ORIGINAL TERMINATOR 
3@& REPLACE ORIGINAL SPACE CHARACTER 
28% REPLACE ORIGINAL SPACE CHARACTER 
3&@ RETURN TO USER 
:sADJUST THE STACK 


7 RETURN TO USER 


geese... -1000.,100.,10. 
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SUBROUTINE TO EXPAND D 


eee, hotohotenen 


VN 
Ow 


Ot 3 tO OS SB OOS 


CO] DO0O0000 3 2 2 ss 1 00 


oo 
SUS 
mrn—r— 
So n= 
Nm w 
Ww N 


So 
S 
S 
S 
=) 
Ww 





NTF 
ECI 


000071 
000012 


000060 
000071 


001362 


027504 


001360 


027507 


001362 
001360 


000002 


C 
MAL TO LARGER THAN 3 
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SBTTL SUBROUTINE TO EXPAND DECIMAL TO LARGER THAN 32767 


sR ARAEAAAAAEAAAEAEAEREREEAEERRERREREAREREERAEREEREREREEEREEREEEEE 


#SDBLK+6 ,R2 388 MOVE LOCATION OF LCD+1 TO R2 


#SDBLK+12,R3 88 MOVE NEW LOCATION OF LCD+2 TO R3 
=(R3) MAKE SURE TERMINATOR IS THERE 
~th3), -(R3) “88 MOVE THE 5S ASCII'S TO THEIR NEW LOCATIONS 
=(R2) ,=(R3) 88 
=(R2) ,=(R3) 88 
=(R2) -=(R3) 88 
=(R2) ,=(R3) 88 
#* ,=(R3) 78% MOVE 4 SPACE CHARACTERS TO THE 4 NEW LOCATIONS 
oe a(R te 


#° ,=(R3) a 
STMPO,-(SP) 78& SAVE STMPO 

T ee CLEAR LOCATION TO USE AS ACCUMULATOR 
STMP1,-(SP) 7@& SA E STMP1 
STMP1 88 CLEAR LOCATION TO ee ACCUMULATOR 


#SDBLK+7,R1 :8& MOVE ADDRESS OF LCD T 
WSNUMS+10,R2 88 MOVE ADDRESS+10 OF WORD STREAM OF 8*6 TO R2 
26(SP) ,RO 78% MOVE OVERFLOW LOCATION CONTENTS TO RO 
(R1) ,$TMPO :@& MOVE ASCII TO THE TEMPORARY LOCAT 
#°0,$TMPO 788 MAKE ri OCATION AN ASCII lf NOT ALREADY 
(R25 ,$TMPO 78% ADD THE NUMBER TO THE ASCII 
#°9,$TMPO 788 HAVE WE SURPASSED ASCII "9" 

'@& BRANCH IF NOT 
#10. .$TMPO '@& SUBTRACT 10 FROM THE ASCII AND 
R1,R3 78% MOVE PRESENT ASCII ADDRESS TO R3 

[88 DECREMENT TO NEXT SIGNIFICANT ASCII DIGIT 
(R3) [8% ADD THE CARRY TO THE ASCH 
#°0, (R3) [8% SET BITS TO MAKE IT A NUMBER ASCII 
#°9. (R3) 388 SEE IF CARRY NEEDS TO BE TRANSFERED 
4$ BRANCH IF NOT 
(R3) ,$TMP1 286 MOVE BYTE TO LOCATION STMP 
#10. .$TMP1 [8% SUBTRACT 10 DECIMAL AN 
STMP1, (R3) 78% MOVE IT BACK 
#SDBLK,R3 788 SEE IF ALL POSITIONS HAVE BEEN DONE 
3$ [8% BRANCH BACK IF NOT 
RO 288 DECREMENT THE OVERFLOW LOCATION RO 
2$ [@& BRANCH IF NOT ALL ADDED 
STMPO, (R1) [8% MOVE NEW NUMBER TO L 
R1 78% POINT R1 TO THE NEXT ASCII LOCATION 
-(R2) [8& POINT R2 TO NEXT DIGIT T 
#SDBLK+3,R1 [88 SEE IF ALL ybisits HAVE BEEN ADDED 
1$ 78% BRANCH IF NOT DONE 
(SP)+,$TMP1 [B® RESTORE STMPI 
(SP)+,$TMPO [8% RESTORE $TMPO 

'8& RETURN 


PC 
3.2,7,6,8. 
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TTY INPUT ROUTINE 


5915 -SBTTL TTY INPUT ROUTINE 


Fg AAA AAREAEARAREAEREEEEEEERERREEEREERERERRREERREREAEREREERKEEEE 


-ENABL LSB 


PIII it ii iii itiitiiitiiiitititititty 
:# SOF TWARE SWITCH spp fads CHANGE ROUTINE. 

*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
 #SERVICE THE TEST FOR Er nie SOFTWARE SWITCH REGISTER TRAP CALL 


; *WHEN OPERATING IN TTY F E. 
027764 022737 000176 001340 $CKSWR: CMP ASWREG, SWR 2318 THE SOFT=SWR SELECTED? 
027772 001112 BNE 15$ 
027774 105737 032555 TSTB —s CHARCT ibe Ste” IF CHARACTER WAS INPUTED DURING PRINT 
030000 001405 BEQ 1$ [@& BRANCH IF NOT 
030002 113746 032555 MOVB = CHARCT, =(SP) 78% MOVE CHARACTER TO THE STACK 
030006 105037 032555 CLRB = CHARCT 88 CLEAR THE CHARACTER FROM CHARCT 
30012 000405 BR 2$ 788 G HECK K IT OUT 
30014 105777 151324 1$: TSTB = @$STKS PECHAR T ? 
030020 100077 BPL 15$ zz1F NO, MOON? T WAIT AROUND 
030022 117746 151320 MOVB a$TKB,-(SP) [SAVE THE CHAR 
030026 042716 177600 2s: BIC #°C177, (SP) ii STRIP-OFF THE ASCII 
030032 022726 000007 CMP #7, (SP)+ ::1S IT A CONTROL G? 

30036 001404 BEQ 33° be YES, BRANCH AROUND RETURN TO USER SETUP 
030040 116637 177776 032555 MOVB  =2(SP),CHARCT :8& MOVE CHARACTER BACK TO CHARCT 
030046 000464 BR 15$ 88 RETURN TO USER 
030050 123727 001334 000001 3$: CMPB $AUTOB,#1 ARE WE RUNNING IN AUTO-MODE? 
030056 001460 BEQ 15$ : BRANCH IF YES 
030060 104401 030544 TYPE »SCNTLG ZzECHO THE CONTROL=G (4G) 

030064 104401 030551 SGTSWR: TYPE * SMSWR :: TYPE CURRENT CONTENTS 
030070 013746 000176 MOV SWREG,-(SP) :: SAVE SWREG FOR TYPEOUT 
030074 104402 TYPOC :60 TYPE=-OCTAL ASCII(ALL DIGITS) 

30076 104401 030562 TYPE ,SMNEW ROMPT FOR NEW SWR 
030102 105037 032555 19$: CLRB = CHARCT ip CLEAR ANY CHARACTER THAT WAS INPUTED DURING PRINT 
030106 005046 CLR =(SP) 7:CLEAR COUNTER 
030110 005046 CLR -(SP) 7: THE NEW SWR 
030112 105777 151226 7$: TSTB = aSTKS ::CHAR THERE? 

030116 100375 BPL 7$ ::I1F NOT TRY AGAIN 

030120 117746 151222 MOVB  a$TKB,-(SP) zzPICK UP 

030124 042716 177600 BIC #°C177, (SP) ::MAKE IT ae ASCII 

030130 021627 000025 9$: CMP (SP) #25 231$ IT A CONTROL-U? 
- 030134 001005 BNE 10$ CH IF NOT 

30136 104401 030537 TYPE »SCNTLU ':YES, ECHO CONTROL-U (“U) 
030142 062706 000006 20$: ADD #6,SP :7 IGNORE PREVIOUS INPUT 
030146 000746 BR SGTSWR *:LET'S TRY IT AGAIN 
030150 021627 000015 10$: CMP (SP) #15 zIS IT A <CR>? 

030154 001022 BNE 16$ 3 BRANCH IF NC 

030156 005766 000004 TST 4(SP) t:YES, IS IT THE FIRST CHAR? 
030162 001403 BEQ 11$ [BRANCH IF YES 

030164 016677 000002 151146 MOV 2(SP) ,aSwWR 7:SAVE NEW SWR 

030172 062706 000006 11$: ADD #6,5P [:CLEAR UP STACK 








CZDR 
TTY 


LDO=DR11 GE 
INPUT ROUT 


030176 


N_NPR INTFC 


000720 


001405 
001335 


000100 


026606 
000060 


000067 


000060 
000002 


000002 
177776 


001404 
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14$: ‘TYPE S$CRLF 
000001 COPS SINTAG.#1 
151124 NOV #100, aSTKS 
16$: JSR PC, STYPEC 
CMP (SP) #60 
BLT 1 
CMP (SP) , #67 
BGT 18$ 
BIC #60, (SP)+ 
TST 2(SP) 
BEQ 7$ 
ASL (SP) 
ASL (SP) 
ASL (SP) 
17$: INC 2(SP) 
BIS -2(SP),(SP) 
BR 7$ 
18$: ‘TYPE $QUES 
BR 30$ 
.DSABL LSB 





SEQUENCE 


:sECHO <CR> AND <LF> 
TTY KBD INTERRUPTS? 


N 
TTY KBD INTERRUPTS 


: sBRANCH IF 
::STRIP=OFF ASCII 

31S THIS THE FIRST CHAR 
; BRANCH IF YES 


7:SIMULATE CONTROL-U 


FF RARER EERE EEREAEERERERAREKRAERAERERRRERAREREREEE ERE 
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030302 


TFC 


000004 
151026 


151022 
177600 
000004 
150774 
150770 
177600 
000021 
000004 
000004 


000040 
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000002 


000004 
000004 
000023 


000140 
000175 
000004 


:*CALL: 


°* 
-* 
-* 


SRDCHR: 


1$: 


2$: 


3$: 


4$: 


SEQUENCE 


-SBTTL ROUTINE TO INPUT A SINGLE CHARACTER ig I TTY 
;*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE T 


RDCHR 
RETURN HERE 


SP) ,=(SP) 
455, 2(SP) 
a$Tk 


1$ 

a$TKB,4 (SP) 
elie 4(SP) 
4(SP) #23 
a$TKS 

2$ 
a$TKB,-(SP) 
#°C177, (SP) 
(SP)+,#21 
2$ 

1$ 

4(SP) #140 
4(SP) ,#175 


4 
#40,4(SP) 


¢¢ INPUT A_SINGLE CHARACTER FROM THE TTY 
: CHARACTER IS _ON THE STACK 
:;WITH PARITY BIT STRIPPED OFF 


3 PUSH a THE PC 
22SAVE THE PS 
:A_CHARACTER 
: TREAD THE TTY 
sas MY RID OF JUNK IF ANY 
21S IT A CONTROL-S? 
ANCH IF NO 


7:WAIT FOR A CHARACTER 
3 af UNTIL_ITS THERE 


sGET C CTER 
i: IT aBiT ASCII 
31S IT A CONTROL-Q? 
3IF NOT DISCARD IT 
SAVES. RESUME 
:;1S IT UPPER CASE? 
ee CH IF YES 
2:18 IT A SPECIAL CHAR? 
i: CH IF YES 


:sMAKE IT UPPER CASE 
::GO BACK TO USER 
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-SBTTL ROUTINE TO INPUT A STRING FROM TTY 


3 ITITITITITIIITILITTLI TTI TLL TT ELLE ELLE LLL 


:*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


S*CALL: 
: INPUT A STRING FROM THE TTY 
ie RETURN HERE STADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
i* TERMINATOR WILL BE A BYTE OF ALL O'S 
030422 010346 $RDLIN: MCV —_ R33, = (SP) SAVE R3 
030424 012703 030530 1$: MOV —s AST TYIN,R3 IGET ADDRESS 
030430 022703 030537 23: CMP WSTTYINE7.,R3. 3 BUFFER FULL? 
030434 101405 BLOS 4$ IF YES 
030436 104410 RDCHR G0 READ ONE CHARACTER FROM THE TTY 
030440 112613 MOVB (SP) +, (R3) IGET CHARACTER 
030442 122713 000177 10$: CMPB #177, (R3) [IS IT A RUBOUT 
030446 001003 BNE $ ::SKIP IF NOT 
030450 104401 001404 4$: TYPE  , $QUES SiTYPE A ‘2° 
030454 000763 BR SICLEAR THE BUFFER AND LOOP 
030456 111337 030526 3$: MOVB —-(R3),9$ ECHO THE CHARACTER 
030462 104401 030526 TYPE. ,9§ 
30466 122723 000015 CMPBo #15, (R3)+ 3:CHECK FOR RETURN 
030472 001356 BNE 2$ IF NOT RETURN 
030474 105063 177777 CLRB = =1(R3) TICLEAR RETURN (THE 15) 
30500 104401 001466 TYPE —, SLF TYPE A LINE FEED 
030504 012603 MoV (SP) +,R3 TORE R3 
30506 011646 MOV (SP) ,=(SP) ;:ADJUST THE STACK AND PUT ADDRESS OF THE 
030510 016666 000004 000002 MOV «4 (SPS, 2( SP) 3: FIRST ASCII CHARACTER ON IT 
030516 012766 030530 000004 MOV —- #STTYIN, 4 (SP) 
030524 000002 RTI RETURN 
030526 000 9$: BYTE 0 SESTORAGE FOR ASCII CHAR. TO TYPE 
030527 ~—s- 000 “BYTE 0 7; TERMINATOR 
030530 $TTYIN: :BLKB 7. :RESERVE 7. BYTES FOR TTY INPUT 
030537 136 = 125, O15. SENTLU: <ASCIZ /*us<15><12> —::CONTROL ‘1 
030544 136 107 015 $CNTLG: [ASCIZ /*G/<15><12>  ::CONTROL "'G’’ 
030551 015 012 123 $MSWR: [ASCIZ <15><12>/SwWR = /" 
030562 4040 «3S s(040Ssi«*1'6)s SMWNEW: ©=:ASCIZ / NEW = / 
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5917 -SBTTL READ A DECIMAL NUMBER FROM THE ‘TY 
STIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY An 
{THIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND 
[*CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL TC WARACTERS 
;*ARE READ A ‘'?"* FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED. 
3*THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE 
7*USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS 
EsCALL 32767 TO NEGATIVE 32768. 
3* DDEC 7zREAD A DECIMAL NUMBER 
se RETURN HERE 72NUMBER IS ON TOP OF THE STACK 
030574 011646 SRDDEC: MOV (SP) ,-(SP) 7zPROVIDE SPACE FOR 
030576 016666 000004 000002 MOV 4(SP) ,2(SP) 32 THE INPUT NUMBER 
030604 010046 MOV 0, -(§P) 3zPUSH RO ON STACK 
030606 010146 MOV R1,-(SP) :ZPUSH R1 ON STACK 
030610 010246 "7 R2.=(SP) 7¢PUSH R2 STAC 
030612 104411 1$: RDLIN scREAD AN ASCIZ LINE 
030614 012600 MOV (SP)+,RO ZzADDRESS OF 1ST CHAR. 
030616 010037 030742 MOV RO,6$ +: SAVE INCASE OF BAD INPUT 
030622 005046 CLR -(SP) CLEAR DATA WORD 
030624 005002 CLR R2 sSIGN SET POSITIVE 
030626 122710 000055 CMPB #*=, (RO) 33 SEE IF A MINUS SIGN WAS TYPED 
030632 601001 BNE 2s F NO MINUS SIGN 
030634 112002 MOVB (RO)+,R2 [SAVE FOR LATER USE 
030636 112001 23: MOVB (RO)+,R1 fit a + THIS CHARACTER 
030640 001424 BEQ 3$ 3:GET OuT IF rae 0 
030642 122701 000060 CMPB #°0O,R1 3 + =MAKE SURE THIS CHARACTER 
030646 003032 BGT 5$ tr1S A DIGIT BETWEEN 0 & 9 
030650 122701 000071 CMPB #'9,RI 
030654 002427 BLT 
030656 032716 170000 BIT #*°C7777, (SP) 77DON'T LET NUMBER GET TO BIG 
030662 001024 BNE 5$ :2BR IF NUMBER WOULD OVERFLOW 
030664 006316 ASL (SP) zit 
30666 011646 MOV (SP) ,=(SP) sz SAVE FOR LATER 
030670 006316 ASL (3P) 2: 
30672 006316 ASL (SP) 738. 
039674 062616 ADD (SP)+, (SP) 77*10. 
30676 102416 BVS 5$ 7:OVERFLOW ISN'T ALLOWED 
030700 162701 000060 SUB #°0,R1 SzSTRIP AWAY THE “| io JUNK 
30704 060116 ADD R1, (SP) 7zADD IN THIS DIGIT 
030706 102412 BVS 5$ : sOVERF LOW ISN'T ALLOWED 
030710 000752 BR 2s LOOP 
030712 005702 3$: TST Re £ CHECK IF NUMBER IS NEG 
030714 001401 BEQ rf F NO 
030716 005416 NEG (SP) TZYES=-NEGATE THE NUMBER 
030720 012666 000012 4$: MOV (Pe. 12(SP) 77SAVE THE RESULT 
030724 012602 MOV (SP)+,R2 37POP STACK INTO R2 
030726 012601 MOV (SP)+,R1 a4 4 STACK INTO R1 
030730 012600 MOV (SP)+,RO sPOP STACK INTO RO 
030732 000002 RTI 37 RETURN 
030734 005726 5$: TST (SP) + aS ary PARTIAL spate FROM STACK 
030736 105010 CLRB (RO) A TERMINA 
030740 104401 TYPE eee THE TAP UT UP TO BAD CHAR. 


SEQUENCE 
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READ A DECIMAL NUMBER FROM THE TTY 


030742 000000 6$: .wORD 0 
030744 104401 001406 TYPE S$QUES 
030750 900720 BR is 


3sPOINTER GOE 


or "CR g' 
72 TRY AGAIN 


S_HERE 
“Fe 


SEQUENCE 
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 CZDRLDO-DR11 GEN NPR INTFC 
READ AN OCTAL NUMBER FROM THE T 


5919 


6666 000004 000002 


— Oe 
Oo 
Nm 
& 
oa 


0037 031100 


S288 


4 
122716 000060 
122716 000067 


oooo0oo 

WAIN WAIAI NANI AIAN AAW 

=> _ oooooo 
NNN NS 

MRR sf own 

So NLM 

oS et ee he PP Pe 
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os 
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0 
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0 
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0 
0 
0 
0 
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0 
0 
0 
0 
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0 
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SEQUENCE 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


PLetedaneeenaeeeeeneReeeeeeeeeeeneneeneeaeeeeeeeeeeeteneeens eens 
T*THIS oy WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
3*CHANGE IT TO BINARY. 

:*THE INPUT CHARACTERS WILL BE CHECKED TO ry THEY ARE LEGAL 


T*OCTAL DIGITS. 


IF AN ILLEGAL CHARACTER IS READ A 


**?"" WILL BE oe ant 


:*FOLLOWED BY A CARRIAGE Sarena tent FEED. THE COMPLETE 


mr = RETYPED. THE INPUT 


:*CALL 


$RDOCT: 


1$: 


2$: 


3$: 


4$: 


5$: 


SHIOCT: 


ocT 
RETURN HERE 


B 
- WORD 


(SP) ,=(SP) 
4(SP5 ,2¢SP) 
RO,-(SP) 
R1,-(SP) 
R2,-¢SP) 


(SP)+,RO 
RO,5$ 
R1 


R2 
(RO)+,=(SP) 


#*C7,(SP) 
(SP)+,R1 
es 


(SP) + 
R1,12(SP) 
R2,$HIOCT 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


(SP)+ 
(RO) 


o 


$QUES 
i$ 
0 


NUMBER MUS 
S TERMINATED BY TYPING A CARRIAGE RETURN. 


7zREAD AN OCTAL NUMBER 
3;LOW ORDER BITS ARE ON TOP OF THE STACK 
;ZzHIGH ORDER BITS ARE IN $HIOCT 

ae SPACE FOR THE 

T NUMBER 

::PUSH RO ON STACK 

sPUSH R1 ON STACK 
3é LINE 
ae eee it OF 1ST CHARACTER 
SONEAR DATA WORD 
01 ae THIS CHARACTER 

F ZERO GET OUT 
MAKE SURE THIS CHARACTER 

IIs AN OCTAL DIGIT 
zit2 
3344 
328 


zzSTRIP THE ASCII JUNK 
2 ADD IN THIS DIGIT 


LOOP 
77 CLEAN Mg pag FROM STACK 
73SAVE THE RESULT 


3zPOP STACK INTO R2 

3sPOP STACK INTO R1 

33POP STACK INTO RO 

3 RETURN 

3:CLEAN PARTIAL — STACK 
:3SET A TERMINATOR 

7;TYPE UP THRU THE BAD CHAR, 
yo ats “cR"’ & ~~" 


3:2; TRY AGAIN 
:ZHIGH ORDER BITS GO HERE 


143 


o-—_ 


a_i ——— 


8 12 
_ SZDRLDO-DR11 GEN NPR INTFC MACRO M1113 02-NOV-81 16:08 PAGE 132 SEQUENCE 144 
_ TRAP DECODER 
| 


5921 - SBTTL TRAP DECODER 


| J RRAAAAERAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAAAAAAAAARERAAAEARHEHEAAEE 


;*THIS ROUTINE WILL Go THE A BYTE OF Ma *"TRAP’’ INSTRUCTION 


[*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

S*OF THE DESIRED ROUTINE. THEN USING G THE ADDRESS OBTAINED IT WILL 
*GO TO THAT ROUTINE. 

031112 010046 STRAP: mov RO,-(SP) zi: SAVE RO 

031114 016600 000002 MOV 2(SP) RO :GET TRAP ADDRESS 

031120 005740 TST = (RO) :BACKUP BY 2 

031122 111000 MOVB (RO) ,RO IGE RIGHT BYTE OF TRAP 

031124 006300 ASL 20 :POSITION FOR INDEXING 

031126 016000 031146 MOV $TRPAD(RO) RO i INDEX TO TABLE 

031132 000200 RTS R TO ROUTINE 
:THIS IS USE TO HANDLE THE “gerbRS” MAC cRO 

031134 011646 STRAP2: MOV (SP) ,=(SP) z:MOVE THE PC DOWN 

031136 016666 000004 000002 MOV 4tSP5 ,2¢SP) : :MOVE THE PSwW DOWN 

031144 000002 ier RTI ; SRESTORE THE PSW 


ABLE 
:*THIS TABLE ile a J THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE entne INSTRUCTION. 


031146 031134 STRPAD: -WORD $TRAP2 
031150 026374 $TYPE = ;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
031152 026766 $TYPOC ;;CALL=TYPOC nee BS ope 6 TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
031154 026742 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
031156 00 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS An LAST CALL) 
031160 027200 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
031162 S$GTSWR ;;CALL=GTSWR TRAP+6(104406) GET y Ae SETTING 
031164 027764 SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
031166 030302 SRDCHR = ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER KOUTINE 
031170 030422 SRDLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
031172 030752 S$RDOCT ;;CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
031174 030574 SRDDEC ;;CALL=RDDEC TRAP+13(104413) READ A DECIMAL NUMBER FROM TTY 

5922 031176 027170 STYPDE ;;CALIL=TYPDE TRAP+14(104414) TYPE DECIMAL EXTENDED 
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SCOPE HANDLER ROUTINE 


5924 -SBTTL SCOPE HANDLER ROUTINE 


RRARARAAEERAEAAAATETEE AEA AAAREAEKARERRARAERAAA AAA AA AA Re AAS 

TR THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

; *AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
AND LOAD THE ERROR FLAG (SERFLG) INTO A} ol tlhe 08> 

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*S$W14=1 LOOP ON ih 30 


+ eSWO9= LOOP ON ERR 
7 *Sw08=1 LOOP ON fest IN SWR<6:0> 
37*CALL 
3* SCOPE 3; SCOPE=I0T 
031200 032777 001000 150132 $SCOPE: BIT #B1T09,aSWR :sLOOP ON ERROR? 
031206 0014 BEQ 1$ F 
031210 005737 001312 TST SERTTL 33 SEE IF THERE WERE ANY ERRORS YET 
031214 001403 BEQ IF NOT YET 
031216 013716 001310 MOV SLPERR, (SP) ; 3 FUDGE RETURN 
031222 000002 : RTI URN 
031224 032777 040000 150166 i€ BIT #B1IT14,aSWR ;:LOOP ON TEST? 
031232 001403 BEQ IF NO 
031234 013716 001306 MOV SLPADR, (SP) ; FUDGE RETURN 
031240 000002 RTI T 
031242 105737 002706 2$: TSTB EOPLOC ite TEST TO SEE IF EOP’S ARE TO PRINT 
031246 001043 BNE 6$ ;@& BRANCH IF NOT 
031250 105737 032555 TSTB CHARCT 788 SEE IF A CHARACTER WAS INPUTED IN A PRINT ROUTINE 
031254 001406 BEQ 3$ 88 BRANCH TO CHECK KEYBOARD IF NOT 
031256 113737 032555 002706 MOVB CHARCT ,EOPLOC 88 MOVE THE a TO EOPLOC 
031264 105037 032555 CLRB CHARCT 788 CLEAR THE LOCATION 
031270 000411 BR 4$ BRANCH TO CHECK THE CHARACTER 
631272 105777 150046 3$: TSTB asTKS at SEE IF EOP REQUESTED 
031276 100055 BPL 8$ 7&8 BRANCH IF NOT 
31300 117737 150042 002706 MOVB a$TKB,EOPLOC 788 GET CHARACTER 
31 142737 000200 002706 BICB #200, EOPLOC 788 CLEAR PARITY BIT 
031314 122737 000030 002706 4$: CMPB #30,EOPLOC 708 SEE IF A (*x) 
031322 001406 BEQ $ 78s CH IF IT IS 
031324 113737 002706 032555 MOVB EOPLOC,CHARCT ;88 MOVE CHARACTER BACK TO CHARCT FOR POSSIBLE FUTURE USE 
031332 105037 002706 CLRB EOPLOC 88 CLEAR THE LOCATION 
1336 000435 BR 8$ 88 BRANCH TO START SCOPE ROUTINE 
031340 104401 032174 5$: TYPE ~HAKTPM 308 TYPE: ‘HIT ANY KEY TO OBTAIN A PROGRESS REPORT, . 
"ENTER (*X) TO RESUME EOP'S E 
288 "ENTER THE KEY REPEATEDLY, AS RESETS DONE IN THE D 
88 "MAY CLEAR THE CHARACTER BEFORE THE TESTS FOR THE 
1344 105337 002706 DECB EOPLOC ;@& MAKE *X ANOTHER CHARACTER AND 
031350 105037 032555 CLRB CHARCT 88 CLEAR ANY CHARACTER THAT MAY BE THERE 
031354 000426 BR 8$ 88 BRANCH TO START SCOPE ROUTI 
031356 105737 032555 6$: TSTB CHARCT 788% SEE IF A CHARACTER WAS INPUTED IN THE TYPE ROUTINE 
031362 001011 BNE 7$ 88 GO TEST THE CHARACTER IF SO 
031 105777 147754 TSTB asTkSs 88 SEE IF CHARACTER WAITING 
031370 100020 BPL 8$ 78 BRANCH IF NOT 
031372 117737 147750 032555 MOVB asTKB, — 3788 MOVE THE enor tg FOR TESTING 
031400 142737 000200 032555 BICB #200,C 88 CLEAR THE PARITY 
031406 122737 000030 032555 7$: CMPB #30, tHARCT 88 SEE IF ANOTHER (*X) WAS INPUTED 
031414 001 BNE 8$ 88 BRANCH IF NOT 
031416 105037 002706 CLRB EOPLOC 88 i ta EOPLOC TO wit! EOP MESSAGES 
031422 104401 032504 TYPE ~EOPRSM 88 TYPE: ‘EOP*S AND EOD'S WILL RESUME PRINTING’ 
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CZDRLDO=-DR11 GEN NPR 
SCOPE HANDLER ROUTINE 

031426 105037 032555 CLRB = CHARCT 788 MAKE CHARACTER SOMETHING ELSE 
031432 105737 032555 8$: TSTB  CHARCT 88 SEE 1F A CHARACTER IS WAITING 
031436 001477 BEQ 9$ [88 BRANCH AROUND (*Y) TEST IF NOT 
031440 122737 000031 032555 CMPB so #31, CHARCT 88 IS THIS A (*Y) (REQUEST FOR RUN SUMMARY) 
031446 001073 BNE 9 ANCH 
031450 022737 044652 044650 CMP #CAPSTK,CAPNTR +SEE IF THERE IS ANY DATA TO PRINT 
031456 001003 BNE 11$ [BRANCH TO PRINT IT IF THER 
031460 104401 036311 TYPE NODATA i TYPE: "NO ERROR TOTALS TO REPORT’ 
031464 000462 BR 7 KICK OUT 
031466 022737 047132 044650 11$: CMP WENDSTK,CAPNTR :SEE IF STACK IS FULL OF BULL 
031474 001002 BNE 12$ [BRANCH AROUND STACK IS FULL MESSAGE IF NOT 
031476 104401 036120 TYPE  ,STKIFL :TYPE: ‘STACK IS FULL = DATA MAY HAVE BEEN LOST’ 
031502 104401 036173 12$: TYPE  ‘ERCHDR :TYP E: , SUMMATION OF ERRORS SINCE, BEGINNING OR LAST REPORT® , 
031506 012700 044652 MOV #CAPSTK,.RO ;MOVE ADDRESS OF STACK TO PRINT TO RO 
031512 012701 000020 MOV #16.,R1 16 BOARDS TC SEARCH TO RO 
031516 005037 001362 CLR STMP) [CLEAR $TMP1, DEVICE POINTER 
031522 021037 001362 13$: CMP (RO) ,STMP1 [SEE IF UNIT NUMBER IS TO PRINT 
031526 001403 BEQ 14$ [BRANCH TO PRINT DATA IF SO 
031530 000010 ADD #10,R0 :GO TO NEXT SET OF DATA AND 
031534 000420 BR [GO SEE IF ANY MORE TO CHECK 
031536 012046 14$: MOV (RO) +,=(SP) [MOVE UNIT NUMBER TO STACK FOR PRINTING 
031540 104405 TYPDS [GO TYPE UNIT NUMBER IN DECIMAL 
031542 104401 037352 TYPE SPACES STYPE 2 SPACES 
031546 012046 MOV (RO)+,=(SP) [MOVE OVERFLOW PASS NUMBER TO STACK FOR PRINTING 
031550 001002 BNE 15$ [BRANCH IF NON-ZERO 
031552 104401 037352 TYPE SPACES :TYPE AN EXTRA 2 SPACES - NUMBER WILL NOT 7BE EXTENDED 
031556 012046 15$: MOV (RO) +,=(SP) [MOVE MAJOR PASS NUMBER TO STACK FOR PRINTING 
031560 104414 TYPDE [GO TYPE PASS NUMBER IN EXTENDED DECIMAL 
031562 104401 037352 TYPE SPACES ‘TYPE 2 SPACES 
031566 012046 MOV (RO) +,=(SP) [MOVE ERROR TOTAL TO STACK FOR PRINTING 
031570 104405 TYPDS £60 TYPE ERROR TOTAL IN DECIMAL 
031572 104401 001405 TYPE  ,$CRLF “TYPE <CRLF> 
031576 020037 044650 16$: CMP RO, CAPNTR [SEE IF ALL DATA HAS BEEN PRINTED 
031602 001347 BNE 13$ [BRANCH BACK IF NOT 

1604 005237 001362 INC $TMP1 i INCREMENT DEVICE POINTER 
031610 012700 044652 MOV #CAPSTK,RO SINIT TALIZE To BEGINNING FOR ANOTHER POSSIBLE PASS 
031614 095301 DEC R1 :DECREMENT LOOP COUN 
031616 001341 BNE 13$ ‘BRANCH UNTIC ALL DEVICE DATA PRINTED 
031620 012737 044652 044650 MOV #CAPSTK, CAPNTR :REINITIALIZE CAPN 
031626 104401 001405 TYPE  ,$CRLF YPE ANOTHER <CRL 
031632 105037 032555 17$:  CLRB  fHARCT itl LEAR ANY CHARACTER ENTERED DURING PRINTING 
031636 104407 9$: CKSWR TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER 

-WHAHHSTART OF CODE FOR THE XOR TESTERS#AEA 
031640 000416 $XTSTR: BR &$ t21F RUNN ING ON THE ‘'XOR'' TESTER CHANGE 
:: THIS INSTRUCT ION TO A ‘NOP’’ (NOP=240) 

031642 013746 000004 MOV aFERRVEC gc sP? tISAVE THE CONTENTS OF THE ERROR VECTOR 
031646 012737 031666 000004 MOV #5$,QMERRVEC = 3: SET FOR TIMEOUT 
031654 005737 177060 TST avi #060 [TIME OUT ON XOR? 
031660 012637 000004 MOV (SP) +, @#ERRVEC ; ;RESTORE THE ERROR VECTOR 
031664 000517 BR SSVLAD ::G0 TO THE NEXT T 
031666 022626 5$: CMP (SP) +, (SP)+ [:CLEAR THE STACK oAFTER A TIME OUT 
031670 012637 000004 MOV (SP) +, a#ERRVEC ::RESTORE THE ERROR VECTOR 
031674 000505 BR 7$ ON THE PRESENT TEST 
031676 6$:;M#AHHEND OF CODE FOR THE XOR  TESTERAAANA 
031676 032777 000400 147434 BIT #BIT08, aSwR ::LOOP ON SPEC. TEST? 
031704 001505 BEQ 4$ ::BR IF NO 
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032654 


000004 
032654 
032654 
177766 


147272 


032654 


001306 


8$: 
2$:2$: 


900$: 


1999$: 


2000S: 
910$: 
2001$: 
7$: 


4$: 
SSVLAD: 


SOVER: 


HAKTPM: 


EOPRSM: . 
CHARCT: 


CLR 
MOVB 


-(SP) 
aswR, (SP) 
ASSWAMK, (SP) 


#37, (SP) 

8$ 

(SP) ,STSTNM 
(SP) ,STESTN 
(SP) 


(SP) 
#SSWO8TBL , (SP) 
a(SP)+,$LPADR 
SOVER 


(SP) + 
#-1, CPSAVE 
2001$ 

#~1 

900$ 
4,-(SP) 


#199984 
177766, CPSAVE 
#81700, CPSAVE 


20 

#B1T00,177766 
wR, -(SP) 

#1Tb9, aswR 

(SP)+, aSwR 

20008 

(SP)+, (SP)+ 


$SVLAD 

1 al eSLPADR 
SERFLG 

STSTNM 

STSINM, STESTN 


(SP) ,SLPADR 
(SP); $LPERR 
SESCAPE 


#1,SERMA 
$TSTNM, QDISPLAY 


SLPADR, (SP) 


SEQUENCE 


:sCLEAR A TEMP. 


as IRED BITS 
CH_IF BAD TEST es WR 
33 CHECK THE NUMBER IN THE SWR 
3 BRANCH IF TE NUMBER IS OuT A RANGE 


ST 
“UPDATE THE TEST NUMBER IN $TSTNM 
ite UPDATE | THe T EST NUMBER IN $TESTN 


zESCALE THE TEST NUMBER 7 oe AN INDEX 
ORM THE ADDRESS OF TEST POINTER 
Ser LOOP ADDRESS TO DESIRED TEST 
LOOP ON THE TEST 


;;CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
7 SEE 4 TIMEOUT WAS nt > ad RECORDED ;DPMO01 


BRANCH AROUND ROUTINE IF [DPMOO1 
TEST FOR 1ST TIME THROUGH 7DPMO01 
7BRANCH IF NOT ;DPMOO1 
SAVE TIMEOUT VECTOR AT 4 :DPMOO1 
SET VECTOR TO LOCATION BELOW ;DPMO01 
MOVE ‘. ERR REG VALUE TO LOC FOR TST ;DPMOO1 
SEE IF THE POWER MONITOR BIT IS ON :DPMO001 
BRANCH TO CONTINUE ROUTINE IF CLEAR :DPMO01 
CLEAR THE BIT FOUND TO BE SET ;DPMO01 
7SAVE SWR VALUE PmO01 


2D 
;DON'T ALLOW LOOP ON ERROR ON THIS ERROR:DPMOO1 
: CALL SPECIAL POWER FAIL re CALL ; phate 


sRESTORE SWR TO ORIGINAL VAL :DPMO001 
. CH OVER TIMEOUT SECTION DPMO01 
CLEAN UP _THE STACK AFTER TIMEOUT ;DPMO01 

E -1 TO CPSAVE -_NO CPU ERR REG :DPMO01 
2 INCREMENT 1ST TIME THROUGH LOCATION :DPMO01 

CH OV ei TIME THROUGH 7DPMO01 
:TEST FOR 1ST TIME THROUGH :DPMO01 
7BRANCH IF NOT 3DPMO01 
RESTORE LOCATION 4 PMmO01 


3D 
ae HAS AN - ERROR OCCURRED? ;&& ELIMINATED FOR CZDRLD 
77SET LOOP ADDRESS TO LAST SCOPE 
23 ZERO THE ERROR FLAG 
;COUNT TEST NUMBERS 


oeSET TEST NUMBER a as 


R OOP ADDRESS 
cee THE ESCAPE FROM ERROR ADDRESS 
sONLY ALLOW ONE(1) ERROR ON NEXT TEST 
i DISPLAY TEST NUMBER 
o3F UDGE RETURN ADDRESS 
;RETURN 


/*X/<CRLF>/HIT ANY KEY TO OBTAIN A PROGRESS REPORT ,/<CRLF> 2&8 
TO RESUME 


/ENTER (*X) 


E 
/ENTER Lp 4 3 Se artEh. 
THE CHARACTER 


/MAY CLEAR 


AND EOD'S/<CRLF> 
EFORE THE TESTS FOR THE CHAR 


 rctaanieaall S AND EOD'S WILL RESUME PRINTING/<CRLF> 788 


:@& LOCATION TO HOLD INPUTED CHARACTER 
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AS RESETS DONE IN THE DIAGNOSTIC/<CRLF> :&& 
R BEF ACTER/<CRLF> :&& 
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SCOPE HANDLER ROUTINE 


032556 $SWO8TBL: 
032556 O1ee 36 - WOR TST1+30 sSTARTING ADDRESS+30 OF TEST 1 
032560 013034 WORD TST2+30 sSTARTING ADDRESS+30 OF TEST § 
032562 013164 D TST3+30 sSTARTING ADDRESS+30 OF TEST 
032564 013516 RD TST4+30 sSTARTING ADDRESS+30 OF TEST 4 
032566 014222 WORD TST5+30 sSTARTING ADDRESS+30 OF TEST 5 
032570 014416 TST6+30 zSTARTING ADDRESS+30 OF TEST 6 
032572 014764 WORD TST7+30 sSTARTING ADDRESS+30 OF TEST 7 
032574 015142 WORD TST10+30 sSTARTING ADDRESS+30 OF TEST 10 
032576 015376 TST11+30 sSTARTING ADDRESS+30 OF TEST 11 
2600 015562 - WOR TST12+30 zSTARTING ADDRESS+30 OF TEST 12 
032602 015746 WORD TST13+30 sSTARTING ADDRESS+*30 OF TEST 13 
32604 016132 WORD TST14+30 sSTARTING ADDRESS+30 OF TEST 14 
32606 016322 ° TST15+30 sSTARTING ADDRESS+30 OF TEST 15 
032610 016554 D 1S7T16+30 zSTARTING ADDRESS+30 OF TEST 16 
032612 017012 WORD TST17+30 zSTARTING ADDRESS+30 OF TEST 17 
032614 017410 WORD 1TST20+30 zSTARTING ADDRESS+30 OF TEST 20 
032616 020014 TST21+30 sSTARTING ADDRESS+30 OF TEST 21 
032620 020330 WORD TST22+30 sSTARTING ADDRESS+30 OF TEST 22 
032622 020626 TST23+30 sSTARTING ADDRESS+30 OF TEST 23 
032624 021364 WORD TST24+30 zSTARTING ADDRESS+30 OF TEST 24 
032626 -WORD TST25+30 sSTARTING ADDRESS+30 OF TEST 25 
30 022156 RD TST26+30 sSTARTING ADDRESS+30 OF TEST 26 
032632 022434 WORD TST27+30 zSTARTING ADDRESS+30 OF TEST 27 
34 022652 WORD TST30+30 zSTARTING ADDRESS+30 OF TEST 30 
032636 023140 WORD TS1T31+30 zSTARTING ADDRESS+30 OF TEST 31 
032640 023270 WORD TST32+30 zSTARTING ADDRESS*30 OF TEST 32 
032642 023650 RD TS1T33+30 zSTARTING ADDRESS+30 OF TEST 33 
032644 024154 WORD 1S134+30 zSTARTING ADDRESS+30 OF TEST 34 
646 024536 WORD TS135+30 sSTARTING ADDRESS+30 OF TEST 35 
032650 025034 WORD 15S136+30 sSTARTING ADDRESS+30 OF TEST 36 
032652 025350 -WORD 1S137+30 sSTARTING ADDRESS+30 OF TEST 37 


032654 000000 CPSAVE: .WORD 0 sLOCATION TO SAVE CPU ERR REG CONTENTS ;DPMOO1 
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ERROR HANDLER ROUTINE 


5926 


036038 
66 


033224 
001303 


001302 
002000 


000177 
033224 
177777 
000004 


177777 
000001 
000001 
001314 
000177 
033224 
000004 
020000 
033226 
000001 


001314 
033644 
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032654 


000004 
032654 
032654 
032654 
177766 


033224 
001314 


146240 


001430 
033130 


SEQUENCE 


.SBTTL ERROR HANDLER ROUTINE 
FERRARA AEEARAEAEEEERE REAR AEEERERAERERERREEEEREREEEEREREEEE 
“THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
; *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
SAND GO TO SERRTYP ON ERROR 
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
:*SW15=1 HALT ON E 
*SW13 INHIBIT ERROR TYPEOUTS 
:*$W10 BELL ON ERROR 
; sw09 LOOP ON ERROR 
3* 
ie RROR N ::ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: CLRB _—sCsIBSAVE ;CLEAR THE ITEM BYTE SAVE LOCATION :RANOO1 
CKSWR :: TEST FOR CHANGE IN SOF T=SwWR 
7$: INCB _— SERFLG 33SET THE ERROR FLAG 
BEQ 7$ [DON'T LET THE FLAG GO TO ZERO 
MOV STSTNM,a@DISPLAY 3 :DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #81710. aSWR ;7BELL ON ERROR? 
BEQ 1$ = SKIP 
TYPE $BELL iE RING BELL 
1$: INC $ERTTL THE NUMBER OF ofRRORS 
INC ERRCNT BE INCREMENT THE ERROR COUNT 
MOV (SP) , SERRPC *:GET ADDRESS OF ERROR INSTRUCTION 
SUB #2, SERRPC 
MOVB  a$ERRPC,$ITEMB ;:STRIP AND SAVE THE ERROR ITEM CODE 
CMPBs#'177, SITEMB :SEE IF THIS IS THE POWER FAIL CAL :DPMOO1 
BEQ 01$ ‘BRANCH AROUND ROUTINE IF IT IS *DPMO01 
TSTB —«IBSAVE :SEE IF THIS IS THE 2ND ERROR CALL :DPMOO1 
BNE 1000$ *BRANCH IF SO :DPMOO1 
CMP #-1, CPSAVE SSEE IF CPU E ERR REG EXISTS :DPMOO1 
BEQ 1001$ SBRANCH IF :DPMOO1 
MOV 4,-(SP) : SAVE TIMEOUT VECTOR AT 4 ‘DPMOO1 
MOV #5000$,4 STIMEOUTS TO 5000$ :DPMOO1 
MOV 177766,CPSAVE :MOVE CPU ERR REG TO CPSAVE FOR TEST  :DPMOO?1 
BR 4999$ [BRANCH OVER TIMEOUT HANDLER :DPMOO1 
5000$: CMP (SP) +, (SP)+ [CLEAN STACK AFTER TIMEOUT [DPMOO1 
MOV #~1, CPSAVE ‘SET CPSAVE TO -1 TO NEGATE FURTHER TEST:DPMOO1 
BR 1001$ ‘BRANCH TO CONTINUE ERR L :DPMOO1 
4999S: BIT WBITOO,CPSAVE :SEE IF POWER MONITOR Bit IS SET DPMOO1 
BEQ 1001$ ‘BRANCH IF OK :DPMOO1 
BIC #81T00,177766 :CLEAR THE BIT FOUND SET :DPMOO1 
MOVB  $ITEMB.IBSAVE :MAKE IBSAVE NON-ZERO FOR DUAL CALL :DPMOO1 
MOVB #177, SITE 7SET SITEMB TO SPECIAL POWER FAIL PNTR :DPMOO1 
BR 1001$ ‘BRANCH OVER IBSAVE rEHEAR ING :DPMOO1 
1000$: CLRB  IBSAVE ;CLEAR IBSAVE SO AFTER 2ND ERROR, EXIT ;DPMOO1 
1001$: MOV (SP)+.4 RESTORE STACK TO MPRETEST STATE :DPMOO1 
BIT #81713, aSwR SKIP TYPEOUT IF SET 
BNE *:SKIP TYPEOUTS 
aa JSR PC, SERRTYP 7:60 TO USER ERROR ROUTINE 
CMPB #APTENV,SENV  ;;RUNNING IN APT MODE 
BNE $ 33NO SkIP APT ERROR REPORT 
MOVB SITEMB. -218 [SET ITEM NUMBER AS ERROR NUMBER 
re JSR PC. SAT +:REPORT FATAL ERROR TO AP 
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WWAIAWINANIWAANNAAW 
WWNWWNWNANAINANWWW 
NONI) 3 oe os a a 

NORE Neb hilo icd 


esssssssssssess3 
yw 
RONNALAVORNVOAWOFN 


So 
Ww 
Ww 
—~ 


033214 


033224 


013716 


022737 
007001 
000000 


105737 
001221 


000002 
000000 


033224 
146172 


001376 


001376 
001000 


001310 
026324 


033224 





146144 


000042 


228: 
2s: 


3$: 
4$: BIT 


5$: 
6$: 


RT 
IBSAVE: .WORD 
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SESCAPE 
SESCAPE , (SP) 
eres 
SLPERR, (SP) 
ASENDAD ,a#42 
6$ 

IBSAVE 

7$ 


0 


3;APT ERROR LOOP 
SEE IF POWER FAIL ERROR CALL 
sBRANCH IF NOT = HALT NOT ALLOWED 


| 
Si TEST FOR CHANGE IN SOFT-SwWR 
:/CHECK FOR AN ESCAPE ADDRESS 


33 IF NONE 

= FUDGE RETURN ADDRESS FOR ESCAPE 
:B& SEE IF WE ARE TO LOOP ON ERROR 
:8& BRANCH OUT IF NOT 

[@& FUDGE RETURN 


33ACT=-11 AUTO-ACCEPT? 
;sBRANCH IF NO 


SEQUENCE 


;RANOO1 
;RANOO1 


SEE IF THIS IS THE PWR FAIL ERROR CALL ;RANOO1 
—le8€ TO CALL ORIGINAL ERR Ir SO ;RANOO1 


7RETUR 
;LOC'°N TO HOLD $ITEMB DURING DUAL ERR 


;RANOO1 
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5928 





033242 
033246 


010046 


1 
000000 


001314 
177400 


001316 


000177 
033516 


001360 
000200 


001360 
002714 


040775 
000001 
001360 
000200 


177400 
002300 


001360 
000540 


002714 
0 
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000020 


002714 
033514 
145756 


033514 


~SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


TI ii titi iii iti ii iitiiiiitiiiititiiiiiiiiiiiitiiiiti iit 

TRTHIS ROUTINE USES THE ‘ITEM CONTROL BYTE’ be Ut TO DETERMINE WHICH 
S*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE'’ (SERRTB), 
[*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
MOV R 7{s ) AVE RO 
MOVB aA$1TEMB,RO BI CkUP THE ITEM INDEX 
BIC risa tie RO ;CLEAR UPPER BYTE :DPMO01 
BNE 1$ :IF ITEM NUMBER IS ZERO, TYPE THE PC OF THE ERROR 
MOV SERRPC,-(SP) = :SAVE SERRPC FOR TYPEOUT 
3ERROR ADDRESS 
TYPOC 1:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
BR 14$ ::GET OUT 
1$:1$: CMP #177,R0 [SEE IF THIS CALL IS THE PWR FAIL CALL ;DPMOO1 
BNE 100$ ‘BRANCH IF NOT :DPMOO1 
MOV #PFECH,RO [MOVE ADDRESS OF PWR FAIL CALL TO RO  :DPMOO1 
BR 1 ‘BRANCH TO CALL ERROR :DPMOO1 
100$: MOV RO, $TMPO :@& MOVE RO TO $TMPO FOR 200 TEST 
BIC #200,R0 288 CLEAR BIT °, IF PRESENT 
DEC & MAKE POINTER AN INDEX 
ASL RO ‘@& SHIFT TO MULTIPLY BY 10 (OCTAL) 
ASL RO 88 
ASL RO 88 
TSTB = $TMPO [8&8 SEE IF ITEM NUMBER IS OVER 200 
BPL 4$ [8% BRANCH IF ITEM NUMBER IS LESS THAN 200 
CMP ERRCNT ,#20 :@& SEE IF (OCTAL) ERRORS HAVE PRINTED 
BLT 2$ [8% BRANCH TO PRINT THE ERROR IF LESS 
BGT 14$ [8% BRANCH TO RETURN IF GREATER - NO MORE DATA IS TO PRINT 
TYPE NOMORE [8% TYPE MESSAGE ANNOUNCING NO MORE PRINTING OF ERRORS 
BR 4$ [8% BRANCH TO RETURN 
2$: CMP #1, ERRCNT [@& SEE IF THIS IS THE FIRST ERROR 
BEQ 3$ :@& BRANCH IF IT WAS AND GO TYPE ERROR ME SSAGE 
CMPB = $TMPO,MEPITM 788 SEE IF ITEM MATCHES LAST MULTIPLE ERR 
BNE BRANCH IF NOT - NEW HEADER NEEDED 
BIT WBIT7,aSWR ree SEE IF SWITCH REGISTER eT 7 IS SET 
BNE 14$ BRANCH TO RETURN IF SWITCH 
BIC #177400,R0 <8& CLEAR UPPER BYTE OF RO EXPOSING ITEM BYTE 
ADD #ER200+4 ,RO 788 POINT TO DATA TABLE ENT 
BR $ BRANCH TO PRINT DATA 
3$: MOVB $TMPO.MEPITM :&& MOVE ITEM NUMBER TO MEPITM FOR POSSIBLE FUTURE USE 
ADD PEROOOCSERRTB, RO: ;$& ADD 200 BASE POINTER TO RO AND 
BR 5$ CH AROUND ERRCNT CLEAR 
4$: CLR ERRCNT ZB CLEAR ERRCNT SO MULTIPLE ERRORS GET NEW HEADER 
5$: TYPE  ,$CRLF *@& TYPE <CRLF> 
ADD #SERRTB.RO ::FORM TABLE 
110$: MOV (RO)+,6$ [:PICKUP ‘ERROR RESSAGE POINTER 
BEQ 7$ ::SKIP TYPEOUT IF NO POIN 
TYPE ZZTYPE THE “ERROR ME MESSAGE’ 
6$: .WORD 0 33" JERROR MESSAGE’ P POINTER, ¢ GOES HERE 
TYPE  ,$CRLF 3: CARRIAGE ETURN'’ & | FEED" 
7$ MOV RO)+,8$ ::PICKUP ‘DATA HEADER’ POINTER 
BEQ 9$ ii SKIP TYPEOUT IF 
TYPE YPE THE ‘DATA HEADER" 


8$: -WORD 0 DATA HEADER" POINTER GOES HERE 
















033612 
033622 


033526 
120 
124 


001414 
000 
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001405 


037352 
001405 


033562 
117 
105 

0601316 
000 
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033612 
127 
123 

032654 
000 


9$: 
10$: 


13$: 
14$: 


MEPITM: 


PFECH: 


PFECHi: . 
PFECH2: 


PFECH3: . 
PFECH4: . 


RLF 
),RO 


C 

0 

$ 
RO)+,=(SP) 
0) 

$ 

PACES 
$ 


-SCRLF 
ill cae 


Pp 
0 


$ 
R 
3 
( 
R 
3 
Ss 


—_ Sa) 
So 


SEQUENCE 


i: CARRIAGE RETURN" § SLINE FEED" 
ICKUP “DATA TABLE 
GO AROUND ROUTINE TO TYPE THE DATA IF NONE 
3IPUT OCTAL DATA ON STACK FOR TYPING 
ZTYPE AN OCTAL NUMBER 
3i1$ THERE ANOTHER NUMBER? 
:BR_IF NO 
ZE TYPE TwO(2) SPACES 
3360 BACK TO “PRINT HE OCTAL NUMBER 
Z3''CARRIAGE RETURN’ & "LINE FEED" 
RESTORE RO 


ETURN 
‘ie LOCATION TO STORE 200+ ERROR ITEM NUMBER 


PFECH1,PFECH2, ia? Pap eee poe OF DATA/ASCII BELOW 
?POWER MONITOR BIT FOUND SET? 
?TESTNO ERR PC CPUERR? 


STESTN, SERRPC,CPSAVE 0 


0,0,0,0 
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CZDRLDO-DR11 GEN NPR INTFC SEQUENCE 153 
COMMUNICATIONS ROUTINE 
5930 .SBTTL APT COMMUNICATIONS ROUTINE 
MRPRREBRBARASLALLALLESLALALELESES EEE EES EERE RES ECE REESE RCE SEER ESS EES 
033626 112737 000001 034072 $aTY1: MOVB #1, $FFLG ::T70 REPORT FATAL ERROR 
033634 112737 000001 034070 $ATY3: MOVB #1.$MFLG ::T0 TYPE A MESSAGE 
033642 000403 BR SATYC 
033668 112737 000001 034072 elve MOVB #1,SFFLG 7270 ONLY REPORT FATAL ERROR 
033652 010046 MOV RO,-(SP) z:PUSH RO ON STACK 
033654 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 
033656 105737 034070 TSTB =—s- SMFLG 3:SHOULD TYPE A MESSAGE? 
033662 001450 BEQ 5$ sIF NOT: 
033 122737. 000001 001430 CMPB =: WAPTENV, SENV ; ;0PERATING UNDER APT? 
033672 001031 BNE 7 IF NOT: 
033674 132737 000100 001431 BITB § #APTSPOOL,SENVM 33 SHOULD SPOOL MESSAGES? 
033702 001425 BEQ TIF ON BR 
033704 017600 000004 MOV a4 (SP) ,RO T:GET NRESSAGE ADD | 
033710 062766 000002 000004 ADD #2,4(SP) RETURN N ADDR. 
033716 005737 001410 1$: TST SMSGTYPE :3SEE IF BONE W/ LAST XMISSiON? | 
033722 001375 BNE 1$ tIF NOT: WAIT | 
033724 010037 001424 MOV RO, SMSGAD ::PUT ADDR IN MAILBOX 
033730 105720 2s: TSTB ~—- (RO) + ::FIND END OF MESSAGE 
033732 001376 BNE 2$ | 
33734 163700 001424 SUB SMSGAD RO ::SUB START OF MESSAGE 
033740 006200 ASR RO ::GET MESSAGE LNGTH IN WORDS 
033742 010037 001426 MOV RO, SMSGLGT ::PUT LENGTH IN MAILBOX 
033746 012737 000004 001410 mov #4, SMSGTYPE ::TELL APT TO TAKE MSG. 
033756 017637 000004 034002 3s: MOV a4(SP) .4$ ::PUT MSG ADDR IN JSR LINKAGE 
33764 062766 000002 000004 ADD #2,4(SP) RETURN ADDRESS 
033772 013746 177776 MOV 177776,-(SP) PUSH 16 ON STACK | 
033776 004737 026374 JSR PC, $TYPE *:CALL TYPE MACRO 
034002 000000 4$: .WORD 0 
034004 105737 034072 10$: TSTB ~—s-: SFFLLG ;:SHOULD REPORT FATAL ERROR? 
034010 001416 BEQ 12$ F NOT: 
034012 005737 001430 TST SENV : ERUNNING UNDER APT? 
034016 001413 BEQ 12$ NOT: BR 
034020 005737 001410 11$: TST SMSGTYPE :3F INI SHED LAST MESSAGE? 
034024 001375 BNE 11 F NOT: WAIT 
034026 017637 000004 001412 MOV a4(SP),$FATAL  ::GET ERROR g 
034034 062766 000002 000004 ADD #2,4(SP) sBUMP RETURN ADDR. 
034042 005237 001410 INC SMSGTYPE Zi TELL abi TO TAKE ERROR 
034046 105037 034072 12$: CLRB ss $FF LLG S:CLEAR FATAL FLAG 
034052 105037 034071 CLRB ss SLFLG ::CLEAR LOG FLA 
034056 105037 034070 CLRB FLG Z:CLEAR MESSAGE FLAG 
034062 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
034064 012600 MOV (SP)+.RO ::POP STACK INTO RO 
034066 000207 RTS PC > RETURN 
034070 000 FL .BYTE 0 i ME SSG. FLAG 
034071 000 SLFLG: .BYTE 0 FLAG 
034072 000 SFFLG “BYTE 0 ::FATAL FLAG 
000200 APTSIZE=200 
000001 APTENV=001 
000100 APTSPOOL =100 
000040 APTCSUP=040 
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POWER DOWN AND UP ROUTINE 


5932 -SBTTL POWER DOWN AND UP ROUTINE 


FARRAR ERE REAR AEARRERERAERERRARAERAEAERERAERERAEREEREEERE 


POWER DOWN AND UP ee 


034074 012737 634112 000024 $PWRDN: MOV MSPWRUP,PWRVEC ;:8& SET UP VECTOR Yo RETURN TO THE HALT BELOW 
034102 012737 000340 000026 MOV MLEVEL?. PWRVEC+2: be RETURN PRIORITY TO 7 

034110 000 3 HALT HALT SOR 

034112 127 034074 000024 S$PWRUP: MOV #SPWRDN, PWRVEC ‘be R Eset PWRVEC TO PWRDN ROUTINE AND 

034120 012737 000340 000026 MOV WEVELY. PWRVEC+2:88 PRIOR ORITY TO 7 

034126 012706 001300 MOV WSTACK, SP 88 REINITIALIZE THE STACK, 

034132 012746 000340 MOV WLEVEL?,-(SP) :8& SET UP RETURN PRIORITY TO 7 AND 

034136 012746 011420 MOV #START1.-(SP) :8& MOVE START? ADDRESS TO STACK AND 

034142 005037 001360 CLR $TMPO [@& CLEAR WAIT LOOP COUNTER 

034146 005237 001360 1$: INC $TMPO 88 GIVE TTY TIME TO RECOVER FROM POWER FAILURE 
034152 001375 BNE 1$ [@& BRANCH BACK UNTIL ZERO AGAIN 

034154 104401 034162 TYPE  ,$POWER :@& TYPE THE POWER FAILURE MESSAGE ASCIZED BELOW 


034160 000002 RTI 7@& RETURN TO PROGRAM 
034162 200 120 117 $POWER: wey <CRLF>/POWER FAILURE - RESTARTING PROGRAM/<CRLF > 


ee 


———— 


CZDRLDO=DR11 GEN NPR INTFC 
MULTIPLE BOARD DIALOGUE ROUTINE 


5934 .SBTTL MULTIPLE BOARD DIALOGUE ROUTINE 
5935 FFARR AAAAAARAARAAAAAAAAAAAAAAAAAAAERERAEARAAAAAAERAAEAAAEARAEAEREEE 
5936 :>>>>>>>MULTIPLE BOARD DIALOGUE ROUTINE<<<<<<<< 
5937 fF FARRAR AAAAERAAAAAARAAAAAAERARAAAAAARAAAAARAAARARAAAAAAAEAAAREREEEE 
5938 034230 012706 001300 MAD : MOV #STACK,SP sINITIALIZE THE STACK 
5939 034234 004737 006610 JSR PC,SETTUP :G0 INITIALIZE THE COMMON TAGS 
5940 034240 104401 040643 TYPE »MBDIAL YPE: ‘MULTIPLE BOARD DIALOGUE‘ 
5941 034244 105037 032555 PROMPT: CLRB C :CLEAR LOCATION FOR POssiBLe INPUT DURING PRIN 
———-- §942 034250 104401 040676 TYPE »ECELR TYPE: ‘ENTER COMMAND (CEJDIT, CLIIST, faaURST CALIBRATION, 
| —- §943 034254 012703 000001 MOV #1,R3 T EXPECT 1 CHARACTER 
| = §944 034260 004737 002722 JSR PC READ :GO READ 1 CHARACTER 
| §945 034264 022737 000114 002664 CMP #'L ANSWER ZLIST PRESENT TABLE? 
'  —- §946 034272 001073 BNE 1$ [BRANCH IF NO 
 -- §947 034276 1064601 040452 TYPE »HEADER :TYPE: '# OF START 2=-N 
| $948 "BOARDS REGADR VECADR W-B P=LEV CYCLE 
|  §969 034300 013737 001474 002720 MOV SDDWO, DDW SET UP THE DEVICE DESCRIPTOR CORD FOR PRINTING 
| — §950 034306 013746 002414 MOV QTYBRD,-(SP) [MOVE NUMBER OF DEVICES TO STACK FOR TYPING 
| 5951 034312 104405 TYPDS zTYPE THE NUMBER OF DEVICES 
5952 034314 104491 637355 TYPE , SPACE3 *" PE 3 SPACE CHARACTERS 
5953 034320 013746 002416 REGADR,-(SP) SMOVE THE DEVICE REGISTER ADDRESS TO THE STACK 
5954 034324 104402 TYPOC :TYPE THE DEVICE REGISTER ADDRESS 
5955 034326 104401 037361 TYPE ,SPACE6 ZTYPE 6 SPACE CHARACTERS 
5956 034332 013746 002456 MOV VECADR,-(SP) :MOVE THE DEVICE VECTOR ADDRESS TO THE STACK 
5957 034336 104403 TYPOS :TYPE THE DEVICE VECTOR ADDRESS 
5958 034340 00 000 .BYTE 3,0 :TYPE 3 CHARACTERS, LEADING ZEROS SUPPRESSED 
5959 034342 104401 037370 TYPE SPACE? YPE 7 SPACE CHARACTER s 
960 034346 032737 000001 002720 BIT #170, DDw ‘SEE WHICH W/B STATE FOR BOARDS 
5961 034354 001403 BEQ 10$ 60 PRINT W STATE IF ‘ 
5962 034356 104401 037405 TYPE B TYPE 
5963 034362 000402 BR 11$ £60 TO NEXT CHECK 
034364 104401 037407 10$: TYPE Ww YPE A 
5965 034370 104401 037370 11$: TYPE * SPACE < TYPE 3 SPACE CHARACTERS 
5 374 737 006560 JSR PC ,PNTPRI ‘PRINT DEVICE PRIORITY 
5967 034400 104401 037370 TYPE SPACE :TYPE 7 SPACE C CTERS 
404 032737 000002 002720 BIT #B1T1,DDW SEE wien 2/N STATE FOR BOARDS 
5969 034412 001003 BNE 2s £60 PRINT _N STATE IF 
5970 034414 104401 037420 TYPE ,TwO YPE A ' 
5971 034420 000402 BR 13$ ‘60 TO ANEXT CHECK 
5972 034422 104401 037422 12$: TYPE /N : TYP! 
5973 034426 104401 037370 13$: TYPE * SPACE7 TYPE nN SPACE CHARACTERS 
5974 034432 032737 000004 002720 BIT #BIT2,DDW [SEE WHICH CABLE STATE FOR BOARDS 
5975 034440 001403 BEQ 14$ G0 PRINT NO CABLE IF NONE 
5976 034442 104401 037414 TYPE YES YPE ' 
5977 034446 000402 BR 5$ BRANCH TO CONTINUE 
5978 034450 104401 037411 14$:. TYPE NO = TYPE 'NO' 
5979 034454 104401 037435 15$: TYPE *CRLF2 i TYPE 2 <CRLF>'S 
980 034460 000671 f BR OMPT ANCH TO PROMPT ANOTHER COMMAND 
5981 034462 022737 000122 002664 15: CMP #°R ANSWER RU PROGRAM 
5982 034470 001020 BNE 4$ : CH NOT 
5983 034472 005737 002416 TST REGADR 7SEE IF REGADR HAS BEEN LOADED 
5984 034476 001003 BNE 3$ sBRANCH TO CHECK VECADR IF SO 
5985 034500 104401 037072 2s: TYPE “MUSTED :TYPE: ‘DEVICE ADDRESS AND/OR VECTOR TABLE NOT SET UP - MUS 
5986 034504 000657 BR PROMPT ‘BRANCH BACK FOR PROMPT MESSA GE 
5987 034506 005737 002456 3$: TST VECADR ;SEE IF VECADR HAS BEEN LOADED 
5988 034512 00177¢ BEQ 2s ANCH BACK TO PRINT ERROR MESSAGE IF NOT 
5989 034514 004737 003170 JSR PC .FIXTBL SFILL L TABLE 
|  §990 034520 012737 177777 902670 MOV #~1 ,MANSIZE sMOVE -1 TO MANSIZE TO INDICATE WE HAVE MANUALLY SIZED 
| 
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SEQUENCE 155 


r---————- — SC ees 


N12 
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MULTIPLE BOARD DIALOGUE ROUTINE 

5991 034 385 000137 011424 JMP START 3 JUMP TO START 

5992 tothe 022737 000105 002664 4$: CMP #°E ANSWER ZEDIT TABLE? 

5993 S94 001414 BEQ EDI ;BRANCH TO EDIT IF 

5994 0 022737 000102 002664 CMP #°B, ANSWER sENTER BURST DATA LATE CAL IBRATION? 

5995 83286 001235 BNE PROMPT ;BRANCH TO PROMPT IF COMMAND NOT RECOGNIZED 

5996 034552 005737 002416 TST REGADR SEE IF REGADR HAS BEEN LOADED 

5997 034556 001750 BEQ $ BRANCH TO ERROR MESSAGE IF NOT 

5998 034560 005737 002456 TST VECADR SEE IF VECADR HAS BEEN LOADED 

5999 034564 001745 BEQ 2$ BRANCH TO ERROR MESSAGE IF NOT 

6000 034566 000137 035712 JMP BDLCR ; JUMP TO BURST DATA LATE CALIBRATION ROUTINE 


ER ae ar eo 


PS 


see 


S 
3 
oa 


Ssesee 
IIIS II IF 35 


eo 


Smsr 


Quilwnr—o 
33533325 
seers 


RIND et et ed et et ot ot ot ot 
NNN 
FnNo 


geececsecsese 
Wr—O OOn 


RE 


602 


o 
= 


SRS=S5S29 
~mo—— 
rr 

NW Uo 


= oO 
2 ww 
22MM" 
NESSRBAS WU Ow 
WEO@NNNNWNNAS 


037535 
002414 


037400 
000002 


0000 
002722 
000002 


034244 
036532 


000015 


160010 
163770 
000007 
036700 
002416 
040252 
002456 

000 
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002704 


002664 


002664 
002664 


002704 


002664 
002664 


002664 


EDIT: 


9$: 
10$: 


wa TABLE EDIT ROUT INE 
TYPE -NOBUT 
OTYBRD ,-(SP) 


,SPACEC 

a 

aS LRGSTC 
PC READ 


$ 
#ESC ANSWER 


cower ANSWER 
#CARETN, ANSWER 


4 
.BDNERR 
EDIT 

R4 

1$ 

#20,R4 

1$ 
R4,QTYBRD 

, SDADRS 
REGADR,-(SP) 
, SPACEC 
#6,R3 

#°7, LRGSTC 
PC READ 


$ 
#ESC ANSWER 


I 
#CNTLC ,ANSWER 
7$ 


PROMPT 
eADRERR 


4$ 
#CARETN, ANSWER 
10$ 


&$ 

R4 4160010 
R4 4163770 
#7 ,R4 

9$ 

-ADLCHR 


ot 

R4,REGADR 

e SVADRS 
VECADR ,~(SP) 
3.0 


SEQUENCE 157 


Y "NUMBER OF BOARDS UNDER TEST 
:PUT QUANTITY OF BOARDS ON STACK FOR ‘PRINTING 
260 PRINT THE QUANTITY OF BOARDS 


YPE: 

TEXPECT MAX OF 2 CHARACTERS 

;MOVE ASCII 5: TO THE LARGEST CHARACTER LOCATION 
GO READ 2 CHARACTERS 

iSEE IF om WAS THE ONLY INPUT 


CH I 
SEE IF . WANTS TO GO = TO PREVIOUS PROMPT 
BRANCH PROMPT JUMP IF S 
:SEE IF USER WANTS TO EXIT (*C) 
;BRANCH TO PROMPT JUMP IF EXIT REQUESTED 
SEE IF A <CR> WAS INPUTED 


s1F <CR> USE EXISTING NUMBER 
7TYPE: "ILLEGAL ag OTHER THAN 1-16) OR CHARACTER IN? 


IF BOARD NUMBER 
;BRANCH TO PRINT ERROR yo IF SO 
apne | INPUTED NUMBER TO @ ye ~- 

YPE: * STARTING DEVICE ADDRESS: 
“MOVE THE PRESENT ADDRESS TO THE STACK FOR PRINTING 
ty THE ADDRESS 


EXPECT MAXIMUM 6 CHARACTERS 

;MOVE ASCII ‘7° TO THE LARGEST CHARACTER LOCATION 
:GO READ 6 CHARACTERS 

:SEE IF NON-NUMERIC CHARACTER INPUTED 

[BRANCH IF 


SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT 

ZBRANCH AROUND ESC PRINT AND earls PROMPT BRANC'' IF SO 
+SEE IF USER WANTS TO EXIT (*C) 

ANCH AROUND PROMP NOT 


T JUMP IF 
Wee, TO PROMPT A NEW COMMAND 


‘ADDRESS alee thel S_NOT' 
"IN THE RANG 760010 TO 163770° 
“BRANCH BACK FOR RE INPUT 
SEE IF <CR> WAS ONLY CHARACTER INPUTED 
31F <CR> rr EXISTING REG ADDRESS 
INPUT NOT LEGAL 


:DPM001 
;DPMO01 


;BRANCH BACK NPU 

71S ANSWER BELOW 160010 

;BRANCH TO PRINT ERROR MESSAGE IF IT Is * 
31S ANSWER ABOVE 163770 
BRANCH TO PRINT ent MESSAGE IF NOT 
sTEST TO MAKE SURE A ‘0° IS "et IN LOWEST OCTAL DIGIT 
;BRANCH AROUND ERROR MESSAGE TYPE IF 
sTYPE: ‘ADDRESS INPUTED HAS OTHER THAN 0 FOR LEAST" 

*SI ag ty OCTAL DIGIT‘ 
CH BACK FOR REINPUT 

INSTALL MEW # IN TABLE 

YPE: mL ING VECTOR ADDRESS: ° 

MOVE PRESENT VECTOR TO STACK FOR PRINTING 


atl THE PRESENT VECTOR ADDRESS 
TYPE 3 CHARACTERS, SUPPRESS LEADING ZEROS 
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6058 035 104401 037400 TYPE APACE YPE: * ; ° 
6059 035072 012703 000003 MOV SENPECT ONLY 3 CHARACTERS 
6060 035076 004737 002722 JSR AS ae [GO READ 3 CHARACTERS 
6061 035102 022703 000003 CMP SEE IF NON-NUMERIC WAS THE ONLY INPUT 
6062 035106 001015 BNE ANCH IF NOT 
6063 035110 022737 000033 002664 CMP i ANSWER ‘SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT 
6064 035116 001674 BEQ [BRANCH TO PREVIOUS PROMPT IF SO 
6065 035120 022737 000003 002664 CMP WCNTLC,ANSWER SEE IF USER WANTS TO EXIT (“C) 
6066 035126 001721 BEQ § :BRANCH TO PROMPT JUMP IF SO 
6067 035130 022737 000015 002664 CMP WCARETN,ANSWER :SEE IF <CR> WAS INPUTED 
6068 035136 001417 BEQ 15$ [BRANCH IF NO CHANGE WANTED 
6069 035140 000744 BR 10$ [BRANCH BACK = INPUT WAS ILLEGAL 
6070 035142 022704 000277 11$: CMP #277,R& [SEE IF ANSWER IS BELOW 300 :DPMO01 
6071 035146 100403 BMI 13$ BRANCH AROUND ERROR MESSAGE IF NOT 
6072 035150 104401 036617 TYPE VECERR TYPE: ‘VECTOR INPUTED IS NOT IN THE RANGE OF 300 TO 777°:D 
6075 035154 000736 BR 10$ ‘BRANCH BACK FOR REINPUT 

4 035156 032704 000003 13$: BIT #3,R4 [MAKE SURE LEAST SIGNIFICANT OCTAL DIGIT IS ‘O* OR ‘4° 
oOee 035162 001403 BEQ 14$ [BRANCH OVER ERROR PRINTING IF NOT 
6076 035164 104401 037003 TYPE VCLCHR ‘TYPE: "VECTOR INPUTED SHOULD HAVE 0 OR 4 AS LEAST DIGIT’ 
6077 035170 000730 BR 10$ [BRANCH BACK FOR REINPUT 
6078 035172 010437 002456 14$: MOV R4,VECADR s INSTALL NEW VECTOR ADDRESS IN TABLE 
6079 035176 104401 040207 15$: ‘TYPE DR1WOB YPE: ‘DRil-W CR B (W=0, B=1) CURRENT STATE = 
6080 035202 013737 001474 002720 MOV $DDw0,DDW ‘MOVE DEVICE DESCRIPTOR WORD TO DDW 
6081 035210 012737 000001 002710 MOV #BITO.BITTST  3MOVE BIT STATE TO PRINT TO BITTST 
6082 035216 004737 006536 JSR PC PSTATE PRINT CURRENT W/B STATE 
6083 035222 104401 037400 TYPE  ,SPACEC tTY PE: 
6084 035226 012703 000001 MOV #1,R3 [ONLY INPUT 1 CHARACTER 
6085 035232 004737 002722 JSR PC.READ [GO READ 1 CHARACTER 

035236 005703 TST R3 [SEE IF NON-NUMERIC WAS THE ONLY INPUT 
6087 035240 001415 . BEQ 16$ ‘BRANCH AROUND NON-NUMERIC TESTS IF SO 

035242 022737 000033 002664 CMP #ESC, ANSWER :SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT 
6089 035250 001700 BEQ 10$ SBRANCH TO PREVIOUS PROMPT IF SO 

035252 022737 000015 002664 CMP MCARETN, ANSWER :SEE IF USER WANTS NO CHANGE 

035260 001417 BEQ “BRANCH IF SO 
6092 035262 022737 000003 002664 CMP WCNTLC,ANSWER :SEE IF USER WANTS TO EXIT (*C) 
6093 035270 001640 BEQ 5$ ‘BRANCH TO PROMPT JUMP IF SO 

035272 000741 BR 15$ [BRANCH BACK = INPUT NOT LEGAL 
6095 035274 005704 16$: TST RG :CHECK FOR LEGAL INPUT 

035276 001403 BEQ 17$ CH IF OK 

7 035300 022704 000001 CMP #1LRG “CHECK FOR ILLEGAL INPUT 

6098 035304 001334 BNE 15$ [BRANCH BACK IF ILL EGAL STATE INPUTED 

035306 042737 000001 001474 17$: BIC #B!T0,$DDWO ‘CLEAR THE BIT TO BE ALTERED 

035314 050437 001474 BIS R4,$DDW0 ‘PUT USER INPUT INTO $DDW0 
6101 035320 104401 040137 18$: TYPE DEVPRI STYPE: "DEVICE PRIORITY PRESENT LEVEL = ' 
6102 035324 013737 001474 002720 MOV $DDw0, DDW :MOVE DEVICE DESCRIPTOR WORD TO DDW 
6103 035332 004737 006560 JSR PC ,PNTPRI PRINT DEVICE PRIORITY 
6104 035336 104491 037400 TYPE  ,SPACEC TYPE: 
6105 035342 012703 000001 MOV #1,R3 ‘ONLY INPUT 1 CHARACTER 
6106 035 004737 002722 JSR PC; READ :GO READ 1 CHARACTER 
6107 035352 005703 TST R3 [SEE IF NON-NUMERIC WAS THE ONLY INPUT 
6108 035354 001415 BEQ 19$ [BRANCH AROUND NON-NUMERIC TESTS IF NOT 
6109 035356 022737 000033 002664 CMP WESC, ANSWER [SEE IF USER WANTS 0, GO BACK TO PREVIOUS PROMPT 
6110 035364 001704 BEQ 153 [BRANCH TO PREVIOUS PROMPT IF SO 
6111 035366 022737 000003 002664 CMP MCNILC,ANSWER SEE IF USER WANTS TO EXIT (*¢) 
6112 035374 001544 BEQ 26$ :BRANCH IF EXIT WANTE 
6113 035376 022737 000015 002664 CMP MCARETN, ANSWER :SEE IF <CR> INPUTED FOR NO CHANGE WANTED 
6114 035404 001413 BEQ 20$ ‘BRANCH IF NO CHANGE WANTED 
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6115 035406 000744 BR 18$ :BRANCH BACK = INPUT NOT LEGAL 
6116 035410 006304 19$: ASL RS ‘PUT PRIORITY IN PROPER POSITION 
6117 035412 006304 ASL R4 ‘BY SHIFTING TO THE LEFT 5 PLACES 
6118 035414 006304 ASL R4 
6119 035416 006304 ASL R4 
6120 035420 006304 ASL R4 
6121 035422 042737 000340 001474 BIC WLEVEL7,$DDWO ;CLEAR OLD PRIORITY 
612¢ 035430 050437 001474 BIS R4, $DDWO ‘SET PRIORITY INTO DEVICE DESCRIPTOR WORD 
6123 035434 104401 040051 20$: TYPE TORNCB ‘TYPE: *2 OR N CYCLE BURST (2 CY=0, N CY=1) PRESENT STATE = 
6124 035440 013737 001474 002720 MOV DDW ‘MOVE DEVICE DESCRIPT D fo. DDW 
6125 035446 012737 000002 002710 MOV WBIT1,BITTST | :MOVE BIT STATE TO PRINT TO BITIST 
6126 035454 004737 006536 JSR PC,PSTATE ‘PRINT 2/N CYCLE STATE 
6127 035460 104401 037400 TYPE ~SPACEC 3 TYPE: 
6128 035464 012703 000001 MOV #1,R3 ZONLY ONE CHARACTER TO INPUT 
6129 035470 004737 002722 JSR PC.READ “READ 1 CHARACTER 
6130 035474 005703 TST R3 = SEE IF NON-NUMERIC WAS THE ONLY INPUT 
6131 035476 001415 BEQ 21$ ‘BRANCH AROUND NON-NUMERIC TESTS IF NOT 
6132 035500 022737 000033 002664 CMP #ESC, ANSWER :SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT 
6133 035506 001704 BEQ 18$ ‘BRANCH TO PREVIOUS PROMPT IF SO 
6134 035510 022737 000003 002664 CMP WCNTLC,ANSWER :SEE IF USER WANTS TO EXIT (4C) 
6135 035516 001473 BEQ *BRANCH IF USER WANTS TO EXIT 
6136 035520 022737 000015 002664 CMP WCARET |,ANSWER :SEE IF USER WANTS NO CHANGE 
6137 035526 001414 BEQ 23$ ZBRANCH IF USER WANTS NO_CHANGE 
6138 035530 000741 BR 20$ CH BACK = USER INPUT NOT LEGAL 
6139 035532 005704 21$: ‘TST R4 ‘CHECK FOR LEGAL INPUT 
6140 035534 001403 BEQ 22$ ‘BRANCH IF OK 
6141 035536 022704 000001 CMP #1,R4 SCHECK FOR ILLEGAL INPUT 
6142 035542 001334 BNE 20$ sBRANCH BACK IF crn STATE INPUTED 
6143 035544 006304 22$: ASL R4 ‘SHIFT BIT OVER 1 PLACE 
6144 035546 042737 C00002 001474 BIC #BIT1,$DDW0 sCLEAR OLD STATE 
6145 035554 050437 001474 BIS R4,$DDWO0 :SET THE USERS INPUTED - STATE TO $DDWO 
6146 035560 104401 040373 23$: «TYPE DOCTS ‘TYPE: "DO CABLE TESTS (NO=0, YES=1) PRESENT STATE = 
6147 035564 013737 001474 002720 MOV $DDWO, DDW :MOVE DEVICE DESCRIPTOR sonD TO DDw 
6148 035572 012737 000004 002710 MOV #B1T2,BITTST “MOVE BIT eg TO PRINT TO BITTST 
6149 035600 004737 006536 JSR PC,PSTATE ;PRINT CABLE STATE 
150 035604 104401 037400 TYPE  ,SPACEC ‘TYPE: 

6151 035610 012703 000001 MOV #1,R3 S INPUT ONLY 1 CHARACTER 
6152 035614 004737 002722 JSR PC.READ [GO INPUT 1 CHARACTER 
6153 035620 005703 TST RB SEE IF NON-NUMERIC WAS THE ONLY eg 
6154 035622 001415 BEQ 24$ *BRANCH AROUND NON-NUMERIC TESTS IF 
6155 035624 022737 000033 002664 CMP #ESC, ANSWER [SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT 

035632 001700 BEQ 208 [BRANCH TO PREVIOUS PROMPT IF SO 
6157 035634 022737 000003 002664 CMP ACNTLC,ANSWER :SEE IF USER WANTS TO EXIT (*C) 
6158 035642 001421 BEQ ‘BRANCH IF USER WANTS TO EXIT 

9 035644 022737 000015 002664 CMP ACARETN, ANSWER :SEE IF USER WANTS 

035652 001415 BEQ 26$ ‘BRANCH IF USER WANTS NO CHANGE 
6161 035654 000741 BR 23$ “BRANCH BACK = USER INPUT NOT LEGAL 
6162 035656 005704 24$: TST RG ;CHECK FOR LEGAL INPUT 
6163 035660 001403 BEQ 25$ ANCH IF OK 
6164 035662 022704 000001 CMP #1,R4 [CHECK FOR ILLEGAL INPUT 
6165 035666 001334 BNE 23$ SBRANCH BACK IF ILL LEGAL STATE INPUTED 
6166 035670 006304 25$: ASL RG ‘SHIFT INPUTED BIT OVER 2 PLACES 
6167 035672 006304 ASL R4 
6168 035674 042737 000004 001474 BIC #B81T2,$DDWO0 :CLEAR BIT TO BE CHANGED 
6169 035702 050437 001474 BIS R4, $DDWO 3SET THE USERS INPUTED STATE TO $DDWO 
6170 035706 000137 034244 26$: JMP PROMPT ‘JUMP TO GET NEW DEVICE NUMBER 
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6171 .SBTTL BURST DATA LATE CALIBRATION ROUTINE 

61 72 FF RRRAAAARAAAAAEAERAAEEAEAAAEAEEEAARAEAEEEERREEEEREREERERAEREEEREREEEE 

617 y>>>>>>>BURST DATA LATE CALIBRATION ROUTINE<<<<<<<< 

61 74 3 FRAAAAAEAAAAAAARAAAAEAEEEAAAAAARARAREAAEEREEEAREREREAREEREEEREREEEE 

6175 

6176 035712 012737 177777 002670 BDLCR: MOV #-1 ,MANSIZE sMOVE -1 19 MANS 1ZE 

6177 035720 004737 003170 JSR PC,FIXTBL : 60 FILL 

6178 035724 104401 037212 TYPE -BDLCRM : TYPE: BURST DATA LATE CAL IBRATION' 

6179 :TYPE: ‘ATTACH SCOPE P ROBE - 

6180 : "TO CALIBRATE NEXT BOARD, TYPE ANY CHARACTER’ 
6181 035730 012737 000001 002544 MOV #8110, DEVMSK 7SET UP BIT MASK TO TEST $DEVM FOR DEVICES 
6182 035736 012700 002456 MOV VECADR,RO sMOVE VECADR TO RO 

6183 035742 012701 002416 MOV SREGADR: *R1 ‘MOVE REGADR 10 R1 

6184 035746 005037 001422 CLR SUNIT CLEAR SUNIT 

6185 035752 033737 002544 001466 2$: BIT DEVMSK , $DEVM :CHECK TO SEE IF DEVICE IS TO BE TESTED 

6186 035760 001015 BNE 5$ CH IF SO 

6187 035762 005737 002544 TST DEVMSK ‘SEE IF BIT 15 IS SET 

6188 035764 100004 BPL $ ‘BRANCH TO CONTINUE IF NOT SET 

6189 035770 104401 036477 TYPE ,BCDONE STYPE: "BURST CALIBRATION COMPLETE’ 

6190 035774 000137 034244 JMP PROMPT : JUMP TO PROMPT A NEW COMMAND 

6191 036000 022021 4$: CMP (RO)+,(R1)+ : INCREMENT THE TWO POINTERS 

6192 036002 006337 002544 ASL DEVMSK [UPDATE DEVICE MAP TEST MASK 

6193 036006 005237 001422 INC SUNIT ; INCREMENT UNIT NUMBER 

6194 036012 000757 BR 2$ 750 TEST NEXT BIT OF DEVICE MA 

6195 036014 011137 002522 5$: MOV (R1),CSR zPUT UUT CSR ADDRESS INTO BEVice CSR LOCATION 
6196 036020 062737 000904 002522 ADD #4,CSR :POINT | csR TO CSR ADDRESS 

6197 036026 011037 002526 MOV (RO) ,DRINV ‘PUT UUT VECTOR ADDRESS INTO DEVICE DRINV 
6198 036032 104401 037200 TYPE »DEVICE TYPES "DEVICE # ° 

6199 036036 013746 001422 MOV SUNIT,-(SP) [PUT UNIT NUMBER ON STACK FOR TYPEOUT 

6200 036042 104405 TYPDS £60 TYPE THE UNIT NUMBER IN DECIMAL 

6201 036044 104401 037511 TYPE ,UCAL YPE: ° UNDER CALIBRATION 

6202 036050 004737 003646 JSR PC, CLENUP ‘SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
6203 036054 005077 144442 6$: CLR acsrR [CLR CYCLE BIT 

6204 036060 012737 000077 002660 MOV #77, TIME [MOVE WAIT LOOP COUNTER TO TIME 

6205 €36066 052777 000400 144426 BIS #CY,aCsR :SET CYCLE BIT 

6206 036074 005337 002660 7$: DEC TIME ;SUBTRACT 1 FROM TIME UNTIL ZERO 

6207 036100 001375 BNE 7$ [BRANCH BACK IF NOT 2 

6208 036102 105777 143236 iste a$TKS 31S A CHARACTER WAITING INDICATING USER WANTS TO GO ON? 


106 100362 BRANCH IF NOT 
6210 036110 017737 144522 002660 MOV @aTKB, TIME sWASTE THE ego he CLEARING THE CHARACTER FLAG 
116 000730 BR 4$ :GO ON TO NEXT BOAR 
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oct -SBTTL ASCII AND ASCIZ MESSAGES AND LOCATIONS 

62135 036120 200 193 124 STKIFL: .ASCIZ <CRLF>/STACK IS FULL = DATA MAY HAVE BEEN LOST/<CRLF><CRLF> 

6214 036173 136 131 200 ERCHDR: .ASCII et Lip ign hg hy all dy OF ERRORS SINCE oe: ART - t AST REPORT/ 

6215 Beegae 200 200 102 »ASCIZ <CRLF><CRLF>/BOARD # PASS # _ERRTTL/<CRLF> 

6216 036311 136 131 200 NODATA: .ASCIZ /*Y/<CRLF>/NO ERROR TOTALS TO REPORT/<CRLF><CRLF> 

6217 036350 040 055 040 ETDEV: .ASCIZ / = TOTAL ERRORS THIS DEVICE = / 

6218 036407 111 114 114 BDNERR: .ASCIZ /IL tee NUMBER (# OTHER THAN 1-16) OR CHARACTER INPUTED/ 

6219 036477 102 125 122 BCDONE: .ASCIZ 7BURST CALIBRATION COMPLETE/ 

6220 036532 101 104 104 ADRERR: .ASCIZ /ADDRESS INPUTED IS NOT IN THE car6 jogore TO yr 

6221 036617 126 105 103 VECERR: .ASCIZ /VECTOR INPUTED IS NOT _IN i‘ RANGE OF 300 TO 

6222 036700 101 104 104 LCHR: .ASCIZ /ADDRESS INPUTED HAS OTHER THAN 0 FOR LEAST SIGNIFICANT OCTAL DIGIT/ 

6223 037003 126 105 103 VCLCHR: .ASCIZ /VECTOR INPUTED SHOULD HAVE 00 OR 4 AS LEAST DIGIT/ 

6224 037064 074 105 123 ESCAPE: .ASCIZ /<ESC>/ 

6225 037072 200 104 105 MUSTED: .ASC!] <CRLF>/DEVICE ADDRESS AND-OR VECTOR TABLE NOT SEY UP = / 

6226 037155 115 125 123 eASCIZ /MUST EDIT FIRST/ 

6227 037173 040 000 LETNCR: .ASCIZ / / 

6228 037175 156 103 000 CNTRLC: .ASCIZ /* 

6229 037200 104 105 126 DEVICE: .ASCIZ /DEVICE # 

6230 037212 200 102 125 BDLCRM: .ASCII <CRLFD/BURST DATA Are CAL IBRAT ION/ 

6231 037246 200 101 124 eASCII <CRLF>/ATTACH SCOPE P 

6232 037274 200 124 117 eASCIZ <CRLF>/TO CALIBRATE NEXT BOARD, TYPE ANY CHARACTER/<CRLF> 

6233 037352 040 040 000 SPACES: .ASCIZ / / 

6234 037355 040 040 040 SPACE3: .ASCIZ / / 

6235 037361 040 040 040 SPACE6: .ASCIZ / / 

6236 037370 040 040 040 SPACE7: .ASCIZ / / 

6237 0374 040 040 072 SPACEC: .ASCIZ / : / 

6238 0374 102 000 : eASCIZ = /B/ 

6239 0374 127 000 W: eASCIZ /W/ 

6240 037411 116 117 000 NO: eASCIZ /NO/ 

6241 037414 131 105 123. YES: eASCIZ = /YES/ 

6242 037420 062 000 TWO: eASCIZ = /2/ 

6243 037422 116 000 N: eASTIZ = /N/ 

6244 037424 102 117 101 BOARD: .ASCIZ /BOARD # / 

6245 037435 200 200 000 CRLF2: .ASCIZ <CRLF><CRLF> 

6246 037440 200 101 114 BCFIN: .ASCIZ <CRLF>/ALL BOARDS CALIBRATED ~ BEGINNING TEST/<CRLF> 

6247 037511 040 125 116 UCAL: .ASCIZ / UNDER CALIBRATION/<CRLF> 

6248 037535 200 116 125 NOBUT: .ASCIZ <CRLF>/NUMBER OF BOARDS UNDER TEST: / 

6249 037574 200 200 104 BRVWPC: .ASCII CERF ><CALF >/ 0 AGNOSTIC HAS DETERMINED THE FOLLOWING ABOUT THE/<CRLF> 
7660 104 122 061 eASCII /DR11-W(S) IT HAS FOUND. USER *MUST* DETERMINE ACCURACY/<CRLF><CRLF> 

6251 037751 040 040 040 eASCIZ /  BOARD#  REGADR V ree W-8 P-LEV 2=N CY CABLE /<CRLP> 

6636 040051 200 062 040 TORNCB: .ASCIZ <CRLF>/2 OR N CYCLE BURST (2 CY=0, N CY= 1) PRESENT STATE = 

6253 040137 200 104 105 DEVPRI: .ASCIZ <CRLF>/DEVICE PRIORITY PRESENT LEVEL = / 

6254 040201 200 104 122 1WOB: .ASCIZ <CRLF>/DR11-W B (Ww=0, B=1) CURRENT STATE = 

6255 040252 200 123 124 SVADRS: .ASCIZ <CRLF>/STARTING VECTOR ADDRESS: 

6256 040306 200 123 124 SDADRS: .ASCIZ <CRLF>/STARTING DEVICE ADDRESS: / 

6257 040341 040 124 165 TSTCOM: .ASCIZ / TESTING lf PASS #/ 

6258 040373 200 104 117 DOCTS: .ASCIZ <CRLF>/DO CABLE TESTS er YES=1) PRESENT STATE = 

6259 040452 200 200 043 HEADER: .ASCII <CRLF><CRLF>/# OF STAR 2-N CABLE/ 

6260 04054 200 102 117 eASCIZ <CRLF>/BOARDS  REGADR VECADR oa 5 , Peer CYCLE TESTS/<CRLF> 

6261 04064 200 200 115 MBDIAL: .ASCIZ <CRLF><CRLF>/MULTIPLE BOARD gee Ons /<e8 

6262 040676 200 105 116 ECELR: .ASCIZ <CRLF>/ENTER COMMAND ([EJDI e fLiist. (8 URST CALIBRATION, CRJUN): / 

6263 040775 124 110 105 E: .ASCII] /THERE ARE STILL MORE ERAORS WILL NOT BE PRINTED. /<CRLF> 

6264 041063 105 122 122 ASCIZ /ERRORS WILL STILL BE C marie AND PRINTED AT THE EOP./<CRLF> 

6265 041151 200 116 117 NODVPR: .ASCII <CRLF>/NO DEVICES RECOGNITE D = DIAGNOSTIC raed BE RUN/<CRLF> 

6266 041233 12 105 193 eASCIZ /RESTART AT 204 IF A DEV S PRESENT/<CRL 

6267 06 1206 200 050 136 M1: eASCII <CRLF>/(*X) INHIBITS EOP'S, (*Y) FOR ER ROR" SUMMARY /<CRLF> 

6268 04135 125 116 111 eASCIZ /UNIBUS HANG? RESTART AT ADDRESS / 
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6269 041421 200 200 103 MIA: ASCII <CRLF><CRLF>/CZDRLDO DR11 GEN NPR INTEC LOGIC TEST/<CRLF> 
6270 O41471 105117120 “ASCIZ /EOP MSG WILL PRINT EVERY 20 SECONDS APPROXIMATELY/<CRLF> 
1554 104 105 126 BARADR: :ASCIZ /DEVICE ADDRESS = / 
6272 041576 = 05 040 124 TSNUMB: :ASCIZ /, TEST NUMBER - 
16 054 040 120 PASNUM: .ASCIZ /; PASS NUMBER = / 
6274 SEVEN 
6275 041640 000000 SAV: [WORD 0 
6276 041642 “BLKW 400 
6277 042642 000000 BUFF:  :WORD 
6278 042644 042644 XINBUF: 
6279 042646 “BiKW 400 
6280 043646 043646 XCHKBU: ; 
6281 043650 “BLKW 400 . 
6282 044650 044652 CAPNTR: :WORD  CAPSTK LOCATION TO HOLD POINTER FOR CAPTURE STACK 
6283 044652 CAPSTK: .BLKW 600. LOCATIONS TO STORE UP TO 150 DECIMAL PASSES AND THEIR ERROR 
6284 047132 000000 ENDSTK: :WORD 0 FLAG SIGNALING END OF THE STACK 
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6285 -SBTTL 
6286 047134 124 105 123. EM eASCIZ 
6287 047162 103 101 116 EM -ASCIZ 
6288 047216 104 122 061 EM -ASCIZ 
6289 047264 111 116 111 -ASCIZ 
6290 047315 111 116 117 EMS eASCIZ 
6291 047346 111 116 111 EM6: -ASCIZ 
6292 047377 111 116 111 EM?: -ASCIZ 
6293 047445 122 105 123. EM10: .ASCIZ 
94 047477 101 124 124 EM11: .ASCIZ 
6295 047542 122 105 123 EM12: .ASCIZ 
6296 0475 101 124 124 EM13: .ASCIZ 
6297 04764 103 123 122 EM14: .ASCIZ 
6298 047733 103 123 122 EM15: .ASCIZ 
6299 0477 105 111 122 EM16: .ASCIZ 
300 05 122 105 107 EM17: .ASCIZ 
1 05 101 124 124 EM20: .ASCIZ 
6302 050140 101 124 124 EM21: .ASCIZ 
6303 050210 105 122 122 EM22: .ASCIZ 
6304 0502 102 111 124 EM23: .ASCIZ 
6305 050320 122 105 101 EM24: =. ASCIZ 
6306 050 102 111 124 EM25: .ASCIZ 
6307 05 102 111 124 EM26: .ASCIZ 
6308 050441 127 103 122 EM27: .ASCIZ 
09 0504 106 125 116 EM30: .ASCIZ 
6310 050534 104 123 124 EM31: .ASCIZ 
11 0506 102 104 122 EM32: .ASCIZ 
6312 050621 101 114 114 EM33: .ASCIZ 
6313 050652 102 104 122 EM34: .ASCIZ 
6314 05071 102 104 122 EM35: .ASCIZ 
6315 050773 102 104 122 EM36: .ASCIZ 
6316 051023 122 105 101 E—M37: .ASCIZ 
6317 051061 122 105 101 EM40: .ASCIZ 
6318 051111 122 105 107 EM41: .ASCIZ 
6319 051157 122 105 101 EM42: ~~ .ASCIZ 
6320 051213 104 122 061 EM43: .ASCIZ 
6321 051244 104 122 061 EM44:  .ASCIZ 
6322 051314 105 122 122 EM45:  .ASCIZ 
6323 051352 106 125 116 EM46: .ASCIZ 
6324 051427 103 123 122 EM47: .ASCIZ 
6325 051444 124 122 101 EM50: .ASCIZ 
6326 051511 104 122 061 EM51: .ASCIZ 
6327 051570 105 130 120 EMS52: .ASCIZ 
6328 051631 127 103 S$ EM53: .ASCIZ 
6329 051657 102 101 122 EM54: .ASCIZ 
6330 051674 102 101 104 EM55: .ASCIZ 
6331 051714 104 101 124 EM56: .ASCIZ 
6332 051752 102 125 106 EM57: .ASCIZ 
6333 052002 124 117 117 EM60: .ASCIZ 
6334 052041 125 116 105 EM61: .ASCIZ 
6335 052124 103 123 122 EM62: .ASCIZ 
6336 052173 104 122 061 EM635: .ASCIZ 
6337 052233 062 055 116 EM65: .ASCIZ 
6338 052304 115 125 114 EM66: .ASCIZ 
6339 052347 103 123 122 EM202: .ASCIZ 
6340 052377 102 104 122 EM211: .ASCIZ 
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ERROR MESSAGES 
/TEST SEQUENCING ERROR/ 
Arp ACCESS DR11 REGISTER/ 


DR11-B OR W MODE INCORRECT (0=B, 1=W)/ 
/INIT FAILED TO CLEAR WCR/ 

/INIT FAILED TO CLEAR BAR/ 

/INIT FAILED TO CLEAR BDR/ 

/INIT FAILED TO CLEAR ALL CSR R-W BITS/ 
/RESET FAILED TO CLEAR 


EAR W 
/ATTEMPT TO SET ALL WCR BITS FAILED/ 
/RESET FAILED TO CLEAR BAR/ 
/ATTEMPT TO SET ALL BAR BITS TO 1 FAILED/ 
/CSR BIT TEST FAILED (FATAL = DIAGNOSTIC NOT CONTINUED) / 
/CSR BIT TEST FAILED/ 


D 
/READY AND MAINTENANCE ARE NOT THE ONLY BITS SET IN CSR/ 
/ATTN AND ERROR FAILED TO SET PROPERLY/ 
/ATTN AND_ERROR FAILED TO CLEAR PROPERLY/ 
ERROR BIT SHOULD HAVE BEEN CLEAR/ 
/BIT PATTERN NOT LOADED PROPERLY IN WCR/ 
/READY OF CSR WAS NOT SET/ 
/BIT 0 OF THE BAR WAS SET/ 
/BIT PATTERN TEST FAILED IN BAR/ 
/WCR DATA PATTERN NOT CORRECT/ 
/FUNCTION BIT(S) ARE NOT CLEAR/ 
ARE NOT AS EXPECTED/ 


TERN/ 
/BDR SHOULD NOT HAVE BEEN LOADED WITH NEW PATTERN/ 


/READY WAS CLEARED BUT NEVER SET AGAIN/ 

/READY CANNOT BE SET BY INIT/ 

/DR11 FAILED TO _INTERRUPT/ 

/DR11_ INTERRUPTED, BUT IT SHOULDN'T HAVE/ 

/ERROR BIT SHOULD NOT BE CLEAR/ 

/FUNCTION BITS DIDN'T INCREMENT IN MAINT MODE/ 
/CSR_ IS_WRONG/ 

/TRANSFERS SHOULD HAVE BEEN INHIBITED/ 

/DR11_ SHOULD NOT HAVE INTERRUPTED A SECOND TIME/ 
/EXPECTED INTERRUPT DID NOT OCCUR/ 

/WCR NOT EQUAL TO ZERO/ 

/BAR IS _WRONG/ 

/BAD DATA IN BDR/ 

/DATA_NOT TRANSFERED CORRECTLY/ 

/BUFFER DATA NOT CORRECT/ 
/TOO MANY WORDS WERE TRANSFERED/ 

/UNEXPECTED TRAP OR INTERRUPT TO TRAP ADDRESS BELOW/ 
/CSR_AND-OR WCR AND-OR BAR ARE INCORECT/ 

/DR11_ INTERRUPTED AT WRONG LEVEL/ 

/2-N_CYCLE BURST SWITCH IN WRONG POSITION/ 
/MULTICYCLE BIT_IN THE EIR IS WRONG/ 

/CSR PATTERN NOT CORRECT/ 

/BDR AND-OR WCR AND-OR BAR ARE INCORECT/ 
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6341 -SBTTL DATA HEADERS 

6342 052446 105 130 130 DH1: eASCII] /EXPCTD RECVD/<CRLF> 

6343 052464 124 105 123 eASCIZ /TEST # TEST #/ 

6344 052503 124 105 123 DH2: ~ASCIZ /TEST # ERR PC ABRTPC REGISTER/ 

6345 052544 124 105 123 DHS: ~ASCIZ /TEST # ERR PC EXPMOD ACTMOD CSRADR/ 

6346 052613 124 105 123 DH4: eASCIZ /TEST # ERR PC WCRADR WCRCONTENTS/ 

6347 052657 124 105 123 DHS: eASCIZ /TEST # ERR PC BARADR BAREXP BARRCV/ 

6348 052726 124 105 123 DH6: -ASCIZ /TEST # ERR PC BDRADR BDRCONTENTS/ 

6349 052772 124 105 123 DH?: eASCIZ /TEST # ERR PC CSRADR CSREXP CSRCONTENTS/ 

6350 055046 040 040 040 DH14: .ASCII BIT(S)/<CRLF> 

6351 053075 124 105 123 -ASCIZ /TEST # ERR PC TESTED CSRADR CSREXP CSRCONTENTS/ 
6352 053161 040 040 040 DH16: .ASCII BIT(S)/<CRLF> 

6353 053210 124 105 123 -ASCIZ /TEST # ERR PC TESTED EIRADR EIREXP EIRCONTENTS/ 
6354 053274 124 105 123 DH17: .ASCIZ /TEST # ERR PC CSRADR CSREXP CSRCONTENTS/ 

6355 053350 124 105 123 DH23: .ASCIZ /TEST # ERR PC WCRADR WCREXP WCRCONTENTS/ 

6356 053424 124 105 123 DH26: .ASCIZ /TEST # ERR PC BARADR BAREXP BARCONTENTS/ 

6357 053500 124 105 123 DH34: .ASCIZ /TEST # ERR PC BDRADR BDREXP BDRCONTENTS/ 

6358 053554 124 105 123 DH43: .ASCIZ /TEST # ERR PC CSPADR CSRCONTENTS/ 

6359 053620 124 105 123 DH50: .ASCIZ /TEST # ERR PC WCRADR WCREXP WCRRCV BARADR BAREXP BARRCV/ 
6360 053717 124 105 123 DH56: .ASCIZ /TEST # ERR PC NPRIAD NPRIEX WNPRIRC ' CSRADR/ 

6361 053776 040 040 040 DH57: .ASCII CHECK CHECK T  INPUT/<CRLF> ~ 
6362 054054 124 105 123 eASCIZ /TEST # ERR PC ADR F BUFADR BUFDAT CSRADR/ 
6363 054143 ‘040 040 040 DH60: .ASCII DIDNOT/<CRLF> 

6364 0541 124 105 123 ASCIZ /TEST # ERR PC EXPECT RESS 

6365 054241 124 105 123 DH61: .ASCIZ /TEST # ERR PC WCRADR OLDPC TRAP ADR/ 

6366 0543 124 105 123 DH62: .ASCII /TEST # ERR PC WCRADR WCREXP WCRRCV CSREXP / 

6367 054372 103 123 122 eASCIZ /CSRRCV BAREXP BARRCV/ 

6368 054421 124 105 123 DH63: .ASCIZ /TEST # ERR PC EXPLVL RCVLVL_ CSRADR/ 

6369 054470 124 105 123 DH64: .ASCIZ /TEST # ERR PC EXPLVL / 

6370 054527 124 105 123 DH65: .ASCIZ /TEST # ERR PC CSRADR EIREXP EIRRCV/ 

6371 054576 124 105 123 DH66: .ASCIZ /TEST # ERR PC PATERN CSRADR CSRRCV/ 

6372 054 124 105 123 DH202: .ASCIZ /TEST # ERR PC CSRADR PATLDD CSREXP CS5RRCV/ 

6373 054724 124 105 123 DH203: .ASCIZ /TEST # ERR PC CSRADR PATERN CSREXP_CSRCONTENTS/ 
6374 055010 124 105 123 DH207: .ASCIZ /TEST # ERR PC PATERN CSRADR CSRCONTENTS/ 

6375 055064 124 105 123 DH210: .ASCIZ /TEST # ERR PC WCRADR WCRCONTENTS/ 

6376 055130 124 105 123. DH211 Paes ‘TEST # ERR PC WCRADR WCREXP WCRRCV BDREXP BDRRCV BAREXP BARRCV/ 
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6378 -SBTTL DATA TABLES 
6379 055240 001362 001414 900009 DT1:  :WORD $TMP1,$TESIN, 
6380 055246 001414 001316 00267 D1@: “WORD $TESTN, SERRPC,OLDPC1,DREG.0 
6381 055260 001414 001316 001362 T ~ WORD STESTN, SERRPC,STMP1 ,BORW,CSR,0 
6382 055274 001414 001316 002516 DT4 ~ WORD STESTN, SERRPC ,WCR,RWCR,O 
6383 055306 001414 001316 002520 DTS ~ WORD STESTN,SERRPC, P ° ° 
6384 055322 0014146 001316 002524 DT6 “WORD  $TESTN.SERRPC.BD 
6385 055334 001414 001316 002522 DT7 “WORD $TESTN.SERRPC.CSR.ECSR.RCSR,0 
6386 055350 001414 001316 002536 DT14:  <.WORD $TESTN.SERRPC.BUT.CSR,ECSR,RCSR,O 
6387 055366 001414 001316 002556 DT16:  .WORD $TESTN.SERRPC.BUT. *REIR.O 
6388 055404 001414 001316 00252 DT17 » WORD STESTN. SERRPC.CSR.ECSR,RCSR,O 
6389 055420 001414 001316 002516 DT23:  cWORD S$TESTN.SERRPC.WCR.EWCR.RWCR.O 
6390 055434 001414 001316 002520 DT26: :WORD $TESTN.SERRPC.BAR.EBAR.RBAR. 
6391 055450 001414 001316 002524 DT34: ~ WORD STESTN, SERRPC,BDR,EBDR,RBDR,O 
6392 055464 001414 001316 002522 DT43: ~ WORD STESTN, SERRPC,CSR,RCSR,0 
6393 055476 001414 001316 002516 DT50: ~ WORD STESTN, SERRPC,WCR,EWCR,RWCR,BAR,EBAR,RBAR,O 
6394 055520 001414 001316 002606 DT56: ~ WORD STESTN, SERRPC ,ANPR1,ENPR1.NPR1,CSR,0 
6395 055536 001414 001316 001370 DT57:  :WORD $TESTN.SERRPC.STMP4.$TMP2.STMP5,.S$TMP3,CSR.O 
6396 055556 001414 001316 001364 DT60: ~ WORD STESTN, SERRPC,STMP2,STMP3,CSR.0 
6397 055572 001414 001316 002516 DT61: .~ WORD STESTN, SERRPC,,WCR,OLDPC2,BDVECT,0 
6398 055606 001414 001316 002516 DT62: ~ WORD STESTN, SERRPC,WCR,EWCR, RWCR,ECSR,RCSR,EBAR,RBAR,O 
6399 055632 001414 001316 002552 DT63: ~ WORD STESTN,SERRPC DRLEV,LEVEL.CSR,0 

00 055646 001414 001316 001362 DT64: <WORD $TESTN.SERRPC ' 

055660 001414 001316 002522 DT65 ~ WORD STESTN, SERRPC,CSR,EEIR,REIR,O 

6402 055674 001414 001316 002604 DTS6: .WORD $TESTN.SERRPC. .CSR.RCSR,O 
6403 055710 001414 001316 002522 DT202 ~ WORD STESTN, SERRPC,CSR,BUT,ECSR.RCSR.0 
6404 055726 001414 001316 002522 DT203: .WORD STESTN, SERRPC,CSR,STMPO,ECSR,RCSR,0 
6405 055744 001414 001316 001362 DT207: .WORD STESTN,SERRPC,$TMP1,.CSR,RCSR,0 
6406 055760 001414 001316 002516 DT210: .WORD STESTN,SERRPC,WCR,RWCR, 
6407 055772 001414 001316 002516 DT211: .WORD STESTN,SERRPC,WCR,EWCR, RWCR, EBDR,RBDR,EBAR,RBAR,O 
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177777 


UBHANG : 


NOCARE : 


. WORD 
. WORD 
END 


BUS HANG ROUTINE 
DR 


WCR,-(SP) 


TSNUMB 
$TESTN,-(SP) 


PASNUM 
$PASS2,-(SP) 





SEQUENCE 


;TYPE: ‘DEVICE ADDRESS - ° 


' TEST NUMBER - ° 
TEST NUMBER ON STACK 
'GO TYPE IT IN OCTAL 

STYPE 2 piers. LEADING ZEROS SUPRESSED 
‘TYPE: ASS NUMBER 

:MOVE 0 ‘ ovehFLov NUMBER TO, THE STACK 


SPASS ,~ (SP) PUT PASS NUMBER ON 
:GO TYPE IT EXTENDED DECIMAL 
- SCRLF ; TYPE A <CRLF> 
WHOA = YOU 7 4g SERIOUSA PROBLEMA, BUDDY! 
START1 JUMP TO RESTART PROGRAM 
=1,°1,°1,°1 zt UP SOME SPACE (APT HACK) 
0 :LOCATION FOR USE WHENEVER CYCLE BIT OF CSR IS USED. THIS 


SHOULD *ALWAYS* BE THE LAST WORD LOCATION IN THIS DIAGNOSTIC 
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172410 


> 
OOD 

4 
nnn 


ADDW1 
AD 


3 

= 
—_ —_ —s 
USWH—o 


z 
a3 


ADDW4 
ADDWS 


AT = 02000 
ATESTN= 000000 


= 
< 
mn 
o 
—“ 
n= 


@ 

oe 

“~ 

ooo 

_— 
nonownw 


I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
] 
I 
I 
I 
I 


BU 
BUFLEN 
BUSERR= 
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000000 


04 
002622 
600004 


BUT 002536 
CAPNTR 044650 
CAPSTK 044652 
CARETN= 000015 
CAT = 157777 
CATCH 006466 
CBITO = 177776 
CBIT1 = 177775 
CBIT10= 175777 
CBIT11= 173777 
CBIT12= 167777 
CB1T13= 157777 
CBIT14= 137777 
CB1T15= 077777 
CBIT2 = 177773 
CBITS = 177767 
CBIT4 = 177757 
CBITS5 = 177737 
CBIT6 = 177677 
CBIT7 = 177577 
CB1T8 = 177377 
CBIT9_= 176777 
€B1513= 057777 
CCY = 177377 
CDAB = 171777 
CDAC = 172777 
CDBC = 174777 
CDSA = 173777 
CDSB = 175777 
CDSC = 176777 
CDST = 170777 
CEIR = 077777 
CER = 077777 
CFNC = 177761 
CF1 = 177775 
CF2 = 177773 
CFS = 177767 
CGO = 177776 
CHARCT 032555 
CHKBFF 003330 
CHKBUF 002620 
CHKCAB 003670 
CIE = 177677 
CKSWR = 104407 
CLENUP 003646 
CMA = 167777 
CNTLC = 000003 
CNTRLC 037175 
CNX = 137777 
CPSAVE 032654 
CR = 000015 
CRLF_ = 000200 
CRLF2 037435 
CRY = 177577 
CSR 00838 

(x6) == :17775 

Cx? =_:177737 





OSMAN AM MAMA AAA AA aA 


OWI 2 NINE NINN BR FENN MPO O SN UW 


oo 
So 


009 
001000 


55454 


FESASAS 


age 


NO 


SEQUENCE 
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SYMBOL TABLE 





| Em2 050210 EWCR 002602 M1A 041421 RDOCT = 104412 Sw9 = 001000 
EM? 050251 EXPAND 027516 N 037422 RDYCHK 002632 TABINX 002546 
EM24 050320 FIXTBL 003170 NO 037411 READ 002722 TBITVE= 000014 
EM25 050351 FLAG 002652 NOBD 906207 REGADR 002416 TIME 002660 
EM26 ©—-: 050402 00016 NOBUT 037535 REINIT 012556 T 002636 
EM27 —s- 050441 FNCCNT 002654 NOCARE 056104 REIR 002562 TkS 002634 
ERS 047216 = 000002 NODATA 036311 RESVEC= 000010 TKVEC = 000060 
EM30 050476 F2 = 000004 NODVPR 041151 RSTRT 026364 TMOPSW= 000006 
EM31 050534 F3 = = 000010 NOMORE 040775 RWCR 002570 TORNCB 040051 
EM32 050600 GO = 900001 NOTST 006335 RY = 000200 TOVECT= 000004 
EM33. 050621 GOAGIN 026344 NOTVEC 005017 R6 = 0 TPB 2642 

M34 050652 GTSWR = 104406 002612 7 = =%0 TPS 002640 
EM35 050712 HAKTPM 032174 = 040000 SCOPE = 000004 TPVEC = 000064 
EM36 0s 050773 HEADER 040452 NXTTST 002554 SDADRS 040306 TRAPVE= 000034 
EM37. «051023 HT = 000011 = 000400 SDRINV 002532 TRTVEC= 000014 
EM, 047264 IBSAVE 033224 002702 SDRVS 002534 TSNUMB 041576 
—EM4O 051061 = 000100 OLDPC1 002672 SETTUP 006610 TSTCOM 040341 
EM41 051111 INBUF 002616 OLDPC2 002676 SPACEC 037400 TSTDEV 012370 
EM42 = 051157 INBUF1 002656 OLDPS1 002674 SPACES 937352 TM 007066 
EMG3 0051213 INDEV 006124 OLDPS2 002700 SPACES 037355 TST1 012606 
EM4G 3051244 022606 OUTORG 004762 SPACE6 037361 TST10 015112 
EM4S 051314 003356 OUTRAN 006255 SPACE7 037370 TST11 015346 
EM46 430s 0051352 IOTVEC= 000020 PASCNT 002556 STACK = 001300 TST12 015532 
EM47 051427 KDPAR2= 172364 PASNUM 041617 STAD 006142 TST13. 015716 
EMS 047315 KDPDR2= 172324 PATCHS 011220 STAGIN 000210 TST14 016102 
—MSO 051444 KIPARO= 172340 PATRNS 007202 START 011424 TST15 016272 
—M51 051511 KIPAR2= 172344 PFECH 033516 START? 011420 TST16 016524 
EM52. = 051570 KIPDRO= 172300 PFECH1 033526 STKIFL 036120 TST17, 016762 
EM53 051631 KIPDR2= 172304 PFECH2 033562 STKLMT= 177776 TST2 013004 
EM54 0051657 LENCHK 002624 PFECHS 033612 SVADRS 040252 TST20 017360 
EM55 =: 051674 LETNCR 037173 PFECH4 033622 SWR 001340 TST21 017764 
EM56 0s 051714 002540 PIRQ = 177772 SWREG 000176 TST22 020300 
EM57. «051752 LEVELS 004732 PIRQVE= 000240 SwO = 000001 TST23 020576 
EM6 047346 LEVEL3= 000140 PNTPRI 006560 SwOO = 000001 TST24 021334 
EM60 052002 LEVEL4= 000200 PREOP 026010 SwO? = 000002 TST25 1636 
EM61 05204 LEVEL5= 000240 ROMP 4244 SwO2 = 000004 TST26 022126 
EM62 052124 LEVEL6= 000300 PROUT 005107 3 = 000010 TST27? 022404 
EM63 0052173 LEVEL7= 000340 PRO = 000000 Sw04 = 000020 TST3 013134 
EM65 =: 0052233 F = 000012 PR1 = 000040 SwOS = 000040 TST30 022622 
EM66 ©: 0052304 LODBUF 003302 PR2 = 000100 $w06 = 000100 TST31 023110 
EM7 047377 002662 PR3 = 000140 = 000200 TST32. 023240 
ENDEV 025622 LRGSTC 002704 PR4 = 000200 SwO8 = 000400 TST33. 023620 
ENDSTK 047132 = 010000 PRS = 000240 SwO9 = 001000 TST34 024124 

2604 MAICLR 007220 PR6 = 000300 SW? = 000002 TST35 024506 

EOPLGCC 002706 MAISET 010220 PR? = 000340 SW10 = 002000 TST36 025004 
EOPRSM 032504 MANSIZ 002670 = 177776 SW11 = 004000 TST37 025320 
= 100000 D 034230 PSTATE 006536 SWwi2 = 010000 TST4 ©: 0013466 
ERCAPT 003126 MBDIAL 040643 7776 Sw13 = 020000 TST40 = 025622 
ERCHDR 036173 MEMGMT 002712 PWRVEC= 000024 SW14 = 040000 STS 014172 
ERRCHK MEPITM 033514 QTYBRD 002414 Sw15 = 100000 TST6 «=: 014366 
ERRCNT 002714 MESSAG 002650 R = 002416 SWw2 = 000004 TST? —- 014734 
E - S$ = 000252 002566 Sw3 = 000010 TWO 037420 
ERRVEC= 000004 MMRO = 177572 RBDR 002564 Swe = 000020 TYPCNF 005142 
ER2 002274 MMVECT= 000250 RCSR 002560 SW5 = 000040 TYPDE = 104414 
ESC = 000033 MSG 002644 RDCHR = 104410 Sw6 ==: 000100 TYPDS = 104405 
ESCAPE 037064 MUSTED 037072 RDDEC = 10441 SW? = 000200 TYPE = 104401 
ETDEV 036350 Mi 041302 RDLIN = 104411 Sw8 == 000400 TYPOC = 104402 
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SETEND STMP 001364 


04404 027504 001534 001445 

TYPOS 04403 DDWO 001474 $FATAL 091418 SMTYP3 001451 $TMP 001366 
UBHANG 056016 $DDW1 001476 SFFLG 03407 SMTYP4 001455 $TMP4 001370 
UCAL 037511 $DDW10 001520 SFILLC 001326 $NULL 001354 $TMPS 001372 
= 002456 $DDW11 001522 S$FILLS 00135 NUMS 027752 STMP6 001374 
VCLCHR 037003 $DDW12 001524 $GDADR 001320 $NWTST= 000001 $™N = 000040 
VECADR 002456 $DDW13 001526 SGDDAT 001324 SOCNT 027164 $TPB 001352 
VECERR 036617 $DDW14 001530 GET 026310 OMO 027166 STPFLG 001357 
037407 $DDW1i5 001532 $GET42 026314 SOVER 032160 TPS 001350 
WCLEN 002630 001500 SGTSWR 030064 SPASS 001416 STRAP 031112 
wCR 002516 $DDW3 001502 $HD = 000000 $PASS2 002716 $TRAP2 031134 
XCHKBU 043646 $DDW4 007504 $HIBTS 001000 SPASTM 001006 RP = 000015 
XINBUF 042644 $DDWS5 001506 SHIOCT 031110 SPOWER 034162 $TRPAD 031146 

x6 = 000020 $DD 001510 SICNT 001304 SPWRDN 034074 TSTM 0010 
x7 = 000040 $DDW7 001512 SINTAG 001335 SPWRUP 034112 STSTNM 001302 
YES 037414 $DDW8B 001514 SITEMB 001314 SQUES 001404 S$TTYIN 030530 
SAPTHD 001000 SDDW 001516 LF 001406 SRDCHR 030302 $TYPD 204 
SATYC 033652 $DEVCT 001420 $LFLG 034071 SRDDEC 030574 $TYPDE 027170 
SATY1 033626 $DEV 001466 $LPADR 001306 SRDLIN 030422 $TYPDS 027200 
SATY3 033634 S$DOAGN 026334 $LPERR 001310 $RDOCT 030752 $TYPE 026374 
SATYS 3644 $DTBL 027474 DR1 001442 $RDSZ = 000007 $TYPEC 06 
$AUTOB 1334 SENDAD 026324 2 $MADR2 001446 $RTNAD 026336 S$TYPEX 026740 
$BASE 001464 SENDCT 026102 SMADR3 001452 $SCOPE 031200 $TYPOC 66 
$BDADR 001322 SENULL 026340 SMADR4 001456 $SETUP= 000137 TYPON 027002 
$BDDAT 001326 SENV 00143C $MAIL 001410 STUP = 177777 $TYPOS 026742 
SENVM 001431 $MAMS1 001440 $SVLAD 032124 IT 001422 
$CDW1 001470 $EOP 026046 SMAMS2 001444 SVPC = 001000 SUNITM 001010 
$CDW2 00 SEOPCT 026074 $MAMS3 001450 SWR = 163400 SwR 001434 
SCHARC 026736 SERFLG 001303 SMAMS4 001454 $SWREG 001432 $VECT1 001460 
SCKSWR 027764 ERMAX 001315 $MBADR 001002 S$SWRMK= 00020 $VECT2 001462 
SCMTAG 001300 SERROR 032656 $SMFLG 034070 $SWOBT 032556 $XTSTR 031640 
= 0 SERRPC 001316 $MNEW 030562 STESTIN 001414 $$GET4= 000000 

$ = SERRTB 001534 $MSGAD 001424 $TKB 001346 wO8= 00004 
SCNTLG 030544 SERRTY 033226 $MSGLG 001426 $TKS 001344 SOFILL 027165 
SCNTLU 030537 SERTTL 001312 SMSGTY 001410 $TMPO 001360 . SAV 041640 
$CPUOP 001436 $ESCAP 001376 $MSWR 030551 STMP1 001362 -$X = 001000 

SCRLF 001405 SETABL 001430 $MTYP1 001441 


- ABS. 056106 000 
0000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 57064 WORDS ( 223 PAGES) 
DYNAMIC MEMORY: 20034 WORDS ( 77 PAGES) 

ELAPSED TIME: 00:11:33 
CZDRLD.BIN,CZDRLD/CR/~SP/NL : TOC=CZDRLD.MLB/ML,CZDRLD.P11 
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CZDRLD «CREATED BY MACRO ON 2=NOV-81 AT 16:13 PAGE 2 
SEQUENCE. 171 
SYMBOL CROSS REFERENCE CREF  v01 
SYMBOL VALUE REFERENCES 
APTSIZ = 000200 81-4264. #137-5930 
APTSPO = 000100 123-5909 137-5930 4137-5930 
ASIZE 005416 #77=4105 4428 
ASKSPR 005056 75-3975 #75-4035 
ASKSVC 004742 75-3961 475-4032 
ASWREG = 000000 52-3178 52-3178 
: = 020000 #44-3074 75-4019 96-4902 96-4906 —«-96=4908 «96-4910 «96-4913 —s:1006-5157 
ATESTN = 000000 $2-3178 52-3178 
iT = 000000 55-3178 59-3178 
AUSWR = 000000 52-3178 50-3178 
AVECT1 = 000300 #43-3052 55-3178 «52-3178 
AVECT2 = 9000 52-3178 59-3178 
8 037405 76-4069 «189-5962 #1426238 
BAR 002520 461-3521 68-3760 «89-4598 89-4599 «91-4662. «92-4718 ~=—«92"4719 «92-4726 ~—-:92=4727 
92-4752 93-4775 «93-4781 «94-4839 94-4840 «94-4847 «94-4848 «104-5177 105-5207 
106-5253 107-5296 107-5324 107-5339 108-5369 109-5406 110-5444 113-5537 114-5570 
1146-5576 115-5600 115-5620 116-5647 117-5694 117-5719 118-5745 119-5786 120-5828 
145-6383 145-6390 145-6393 
BARADR 041554 #1426271 146-6409 
BC 3647 1461-6189 #142-6219 
BCFIN. 037440 #142-6246 
BDFAIL 2 #61-3577 
BDLCR. 035712 139-6000 #1416176 
BDLCRM 037212 141-6178 #142-6230 
BDNERR 03640 140-6017 #142-6218 
BD 006122 75-4022 #7724116 *77=4136 77-4141 77=4186 —-*77-4188 —-#77=4201 
BDR 002524 #613523 89-4602 89-4603 «92-4733 «92-4734. «92-4739 «92-4740 «92-4763. «93-4774 
93-4792 94-4810 96-4811 94-4817 «94-4818 «100-5004 100-5005 100-5012 100-5013 
106-5254 107-5297 108-5370 115-5601 115-5622 116-5648 116-5671 117-5696 118-5746 
119-5787 119-5810 120-5829 145-6384 145-639 
BDVECT 002542 461-3533 #784216 78-4220: 145-6397 
BEGIN 011674 87-4427 87-4429 #BB-4456 
BEGIN 012356 48-3173 88-4458 #88-4532 88-4539 -4541 122-5908 
BITTST 002710 461-3586 79-4238 140-6081 *140-6125 *140-6148 
BITO. = 1 443-3049 75-3957 75-4005. «75-400? © 76-4054 «76-4067 «77-4110 77=4164 77-4182 
77-4189 82-4286 87-4422 88-4497 88-4532. 94-4842 «95-4865. «95-4868 ~—«-95-4870 
-4873 95-4877. 95-4880 96-4889 «100-5000 «111-5479 114-5577 114-5580 139-5960 
140-6081 140-6099 141-6181 
BITOO = 900001 443-3049 43-3049 «133-5924 133-5924 135-5926 135-5926 
BITO1 = 000002 #43-3049 43-3049 
BIT02 = 000004 443-3049 43-3049 
BITO3 = 000010 #43-3049 43-3049 
BIT04 = 000020 #43-3065 43-3049 
BITOS = 000040 #43-3049 43-3049 
BIT06 = 000100 #63-3069 63-3049 
BITO7 = 000200 #43-3049 43-3049 
BITOB = 000400 #43-3049 43-3049 «133-5924 
BtTy? = Boooee Sce-Soce | PE<Ab1} acabeS”  AbeacheGe-a501 01-5404 138-S00R 1408125 | te0-6 148 
BT? = Bocooo 543-3049 26508” 90-4622 91-6643. 92-6699 93-4771 44804 95-4864 96-4888 
Ss - bad - - - - = = -4 
97-4922 98-4967 99-4972 «100-4999: 101-5025 102-5058 103-5092 104-5148 105-5203 


















CZDRLD CREATED BY MACRO ON 2-NOV-81 AT 16:13 PAGE 3 
SEQUENCE 172 
SYMBOL CROSS REFERENCE CREF 01 
SYMBOL VALUE 


REFERENC 
06-5045 107-5287 108-5360 109-540 110-5441 9111-5478 113-5522 114-5568 115-5588 
116-5641 9117-5682 =: 1118-5738 =. 119-577 120-5820 
ainig = 010000 #43-3049 75-3959 77-4112 77-4166 77-4184 77-4191 
BIT = 020000 #43-3049 135-5926 
BIT14 = 040000 #43-3049 111-5504 133-5924 
BIT15 = 100000 #43-3049 
BIT2 = #43-3049 68-3757 71-3829 75-4021 76-4081 82-4292 88-4505 91-4646 112-5512 
139-5974 140-6148 140-6168 
BITS = 000010 #43-3049 
BITS = 20 #43-3049 
BITS = 000040 #43-3049 
BIT6 = 000100 #43-3049 
BIT? = 000200 #43-3049 87-4424 136-5928 
B1T8 = 000400 #43-3049 111-5498 111-5500 111-5502 111-5504 
BITS = 001000 #43~-3049 92-4714 92-4731 92-4744 94-4822 94-4837 94-4852 135-5926 
BOARD 037424 121-5873 #142-6244 
BORW 002610 #61-3554 *90-4625 *90-4626 90-4633 95-4865 100-5000 111-5479 145-6381 
BPINIT 004154 #74~-3905 77-4105 88-4569 
BPT = 3 #47-3142 74-3912 87-4415 
BPTINT 004216 74-3905 #74-3920 
BPTVCT 000014 #48-3150 75-3938 75-3939 *75-3946 +*75~3996 
BPTVEC = 000014 #43-3049 
BRVWPC 037574 76-4052 #142-6249 
BRWAIT 002626 #61-3561 
BUF F 042642 #142-6277 
BUF LEN 002622 #61-3559 66-3714 67-3730 68-3751 68-3752 69-3805 72-3861 *106-5247 106-5248 
*107-5290 107-5291 *108-5363 108-5364 *116-5643 *118-5740 118-5742 *119-5781 119-5783 
*120-5823 120-5825 
BUSERR = 000004 #43-3050 89-4595 +*89-4615 
BUT 002536 461-3531 = *71-3832 = *91-4677 = #954868 = 113-5554 145-6386 145-6387 145-6403 
CAPNTR 044650 *48-3171 64-3667 64-3669 64-3674 133-5924 133-5924 133-5924 133-5924 #142-6282 
CAPSTK 044652 48-3171 133-5924 133-5924 133-5924 133-5924 142-6282 #142-6283 
CARETN = 000015 #47-3130 63-3654 140-6015 140-6041 140-6067 140-6090 140-6113 140-6136 140-6159 
CAT = 157777 #45-3098 
CATCH 006466 48-3150 #78-4215 
CBITO = 177776 #46-3104 99-4626 90-4628 
CBIT1 8 = 177775 #46-3105 111-5488 111-5490 
CBIT10 = 475777 #46-3114 
CBIT11 = 173777 #46~-3115 
CBIT12 = 167777 #46-3116 
CBIT1= = 157777 #46~-3117 
CBIT14 = 137777 #46-3118 
CBIT15 = 077777 #46~-3115 
CBIT2 = 177773 #46-3106 
(BITS) == 177767 #46-3107 
CBIT4 == 177757 #46-3108 
CBITS == 177737 #46-3109 
CBIT6 38 = 177677 #46-3110 
CBIT? == 177577 #46-3111 
CBIT8 = 177377 oer 81i6 
CBIT9_ = 176777 #46-311 
(B1513_ = 057777 #46-3120 96-4901 





CZDRLD 


CN 
CPSAVE 
CR 
CRLF 


CRLF 2 
CRY 
CSR 


rnnnnnnnnnnnnnne 


CREATED BY MACRC ON 2=NOV-81 AT 16:13 
SYMBOL CROSS REFERENCE 
MBOL UE 


032555 


003330 
0 


032654 


000015 
000200 


037435 
177577 
002522 


REFERENCES 

#45-3089 

#45-3093 

#45-3094 

#45-3095 

#45-3092 

#45-3091 

#45~-30 

#45-3096 97-4936 

#45-310 

#45-310 

#45-3084 97-4928 

#45-308 

#45-3082 

#45-3083 

#45-3080 

63-3621 63-3623 
#123-5 *123-5909 
133-5924 133-5924 
133-5924 133-5924 

#67-3729 106-5251 

#61-3558 67-3729 

#71-3829 92-4758 

#45-308 

#132-5921 133-5924 

#70-381 88-4570 
105-5206 107-5288 
119-5779 = 120-5821 

#45-3097 

#47-3129 63-3628 
63-3630 #142-6228 

#45-3099 
133-5924 133-5924 
136-5928 

#43-3049 123-5909 

#43-3049 75-4033 
91-4643 92-4699 
100-4 101-5025 
109-5402 110-5441 
119-5778 120-5820 
133-5924 133-5924 
142-6215 142-6215 
142-6232 142-6245 
142-6249 142-6250 
142-6258 142-6259 
142-6263 142-6264 
142-6269 142-6270 
139-5979 #142-6245 

#45-308 

#61-352 68-3750 
90-462 90-4624 


92-4701 a6-e59 
93-4776 95-477 


PAGE 4 
SEQUENCE 173 
CREF O01 
98-4961 99-4986 
98-4953 99-4978 
*63-3624 88-4568 
123-5909 27-5915 
#133-5924 *1335-592 
#133-5924 #133-5924 
107-5294 108-5367 
69-3791 
93-4787 96-4905 
135-5926 135-5926 
91-4644 94-4805 
108-5361 109-5403 
141-6202 
140-6013 140-6035 
133-5924 133-5924 
123-5909: 
75-4034 75-4036 
93-4771 94-4804 
102-5058 103-5092 
111-5478 113-5522 
123-5909 163-2889 
138-5932 138-5932 
142-621 142-6216 
142-6245 142-6246 
142-6250 142-6251 
142-6259 142-6260 
142-6265 142-6265 
144-6542 144-6550 
68-3754 70-3818 
90-4625 91-4654 
ogee ne 92-4717 
93-4785 95-4791 


105-5230 


94-4857 
110-5442 


140-6065 
#134-5924 


77-4204 


*121-5900 
#127-5915 
#133-5924 


101-5033 


140-6092 
135-5926 


77-4205 
8 


73-3886 
91-4656 
92-4746 
94-4824 


*123-5909 
#127-5915 
*#133-5924 


102-5064 


140-6111 
*135-5926 


77-4206 


144-6563 
73-3887 


95-4867 


*123-5909 
#127-5915 
133-5924 
103-5108 


103-5093 
114-5569 


140-6134 


*135-5926 


89-4593 
7 


99-4409 


1-4664 
93-4963 
95-4869 


123-5909 
133-5924 
#133-5924 


104-5149 
116-5642 


140-6157 


135-5926 


00 
93-4772 
95-4875 


CZDRLD CREATED BY MACRO ON 2-NOV-81 AT 16:13 


PAGE 5 
SEQUENCE 174 
SYMBOL CROSS REFERENCE CREF 01 
SYMBOL VALUE REFERENCES ig 
95-4876 96-489) 4 wg 343 96-4893 96-4898 96-4899 96-4908 96-4909 96-4916 
23 97-4924 97-49 6 4 


97-49 - 97-493 97-4933 98-4948 98-4949 98-4950 98-4957 
98-4958 99-49 99- 99=4 99-4982 99-4983 100-5002 100-5003 100-5010 
101-5026 101-5027 101-5029 101-5038 101-504 1-5043 01-5047 102-5060 102-5072 
102-5073 102-5076 102-5081 ae 103-510 103-5104 103-5106 103-5119 103-5121 
103-5124 103-5135 104-5156 104-515 104-5162 104-5164 104-5169 104-5180 104-5185 
104-5187 104-519 105-5214 105-5216 105-5219 105-5223 105-5228 106-5246 106-5260 
106-5261 106-526 106-5269 107-5302 107-5303 107-5318 107-5321 107-5328 107-5329 
107-5334 107-5348 107-5553 108-5362 108-5376 108-5378 108-5381 108-5385 109-5404 
109-5412 109-5413 = 109-5414 «109-5420 §=— 109-5422 §=— 109-5427 =. 110-5451 3=— 110-5452 3=—: 110-5457 
110-5465 = 110-5471) = 111-5482) = 111-5483) 111-5484 =: 113-5529): 113-5530 =. 113-5531 3=—_: 113-5538 
113-5539 = 114-5571) -114-5572 = 115-5597 =. 115-5598 115-5603 115-5604 115-5610 115-5613 
116-5654 116-5655 116-5661 116-5663 116-5664 117-5691 117-5692 117-5697 117-5698 
117-5704 9117-5707) =—117-5708 )3=—. 118-5739 =—-118=5752 =: 118-5753 = 118-5759 =: 118-5761 + =118-5762 
119-5780 8119-5793 =—119-5794 9119-5800 119-5802 119-5803 120-5822 120-5835 120-5836 
120-5842 120-5844 120-5845 *141-6195 *141-6196 141-6203 141-6205 145-6381 145-6385 
145-6386 145-6387 145-6388 145-6392 145-6394 145-6395 145-6396 145-6399 145-6400 
145-6401 145-6402 145-6403 145-6404 145-6405 
Cx6 = 177757 #45-3085 
Cx7 = 177737 #45-3086 
cy = 000400 #44-3064 82-4276 82-4278 91-4668 91-4670 91-4680 91-4682 105-5216 106-5261 
107-5303 107-5329 108-5378 109-5414 113-5543 113-5545 115-5604 116-5655 117-5698 
118-5753 = 119-5794 = 120-5836) 3=—: 141-6205 
DAB = 006000 #44-3069 97-4939 
DAC = 005000 #44-3070 98-4964 
DATCHK 003526 #69-3790 106-5277 = 107-5311 += 108-5393 
DATCHX 003644 69-3804  #69-3809 
DATCH1 003546 #69-3794 69-3806 
DATCH2 003624 69-3796  #69-3805 106-5279 107-5313 108-5395 
DATOCK 003716 #72-3848 118-5769 120-5852 
DATOCX 004062 72-3860 72-3871 #72-3874 
DATOC1 003736 #72-3852 72-3862 
DATOC2 004000 72-3854 #72-3861 118-5771 120-5854 
C = 003000 #44-3071 99-4989 
DDISP = 177570 #43-3049 52-3178 81-4264 
DDW 002720 #62~-3601 68-3757 71-3829 *76-4066 76-4067 76-4075 76-4081 79-4233 80-4245 
*88-4565 88-4566 90-4627 91-4646 96-4889 103-5094 111-5489 = 112-5512 *139-5949 
139-5960 139-5968 139-5974 *140-6080 *140-6102 *140-6124 *140-6147 
DEVICE 037209 141-6198 #142-6229 
DE VMSK 002544 vs Pett *88-4552 88-4534 88-4536 *88-4546 *88-4551 *141-6181 141-6185 141-6187 
® 
DEVPRI 040137 140-6101 #142-6253 
DH1 052446 #144-6342 
DH14 053046 54-3240 54-3247 = #144-6350 
DH16 053161 54-3254 #144-6352 
DH17 053274 54-3261 54-3267 54-3273 55-3278 55-3284 55-3296 55-3302 56-3331 56-3337 
56-3343 56-3361 56-3367 60-3500 4144-6354 
2 052503 53-3181 = #144-6344 
DH202 054645 59-3453. #144-6372 
DH203 054724 #144-6373 
DH207 055010 #144-6374 
DH210 055064 59-3477 = #144-6375 
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CZDRLD 
SYMBOL a 


SYMBOL VAL 
DT14 Reagee 
DT16 055366 
DT17 055404 
DT2 055246 
DT202 05571 
DT203 055726 
DT207 055744 
DT210 055760 
DT211 055772 
DT23 055420 
DT26 055434 
DT3 055260 
DT34 055450 
DT4 055274 
D143 055464 
TS 055306 
DT50 055476 
DT56 055520 
D157 055536 
DT6 055322 
DT60 055556 
DT61 055572 
DT62 055606 
DT63 055632 
DT64 055646 
DT65 055660 
D166 055674 
DT7 055334 
DYWTLT 006401 
R 2600 
EBDR 002576 
ECELR 040676 
ECSR 002572 
EDIT 034572 
EEIR 002574 
EIR = 100000 
EMTvEC = 000030 
EM1 047134 
EM10 047445 
EM11 047477 


54-3221 


CREATED BY MACRO ON 2-NOV-81 AT 


#145-6387 
8 


7145-6603 


#1456406 


#145-6401 
#145~6385 


*81-4264 


#143-6293 
#143-6294 





16:13 PAGE 7 
SEQUENCE 176 
CREF 01 
#1456386 
54-3274 55-3279 
56-3368 60-3501 
59-3484 #145-6390 
57-3397 59-3472 
54-3223 = #145-6382 
56-3380 57-3385 
54-3235 55-3291 
#145-6395 
55-3315 #145-6384 
68-3770 #924723 
#114-5580 *115-5621 
*100-5008 *100-5011 
*68-3764 68-3765 
82-4287 *91-4659 
*93-4786 93-478 
#97~4926 97-492 
#98-4955 98-4959 
99-498 #99~-4989 
#104-5171 *104-5172 
*109-5433 *110-54 
#114-5574 145-6385 
140-6018 40-6034 
*95-4880 *111-5497 
90-4624 95-4875 
*81-4264 


55-3285 
#145-6388 


#145-6391 


#145-6392 
#145-6383 


#92-4754 
115-5626 


*100-5016 


68-3768 


*110-5469 
145-6386 


111-5498 
100-5010 


55-3297 


#93-4783 
*117=5723 


*115-5623 


71-3831 


55-3303 


#94-4841 
145-6383 


115-5628 


*73-3888 


3 
#113-5540 
145-6398 


*111-5502 


56-3332 


#94-4842 
145-6390 


*116-5674 


*73-3889 


#91-4674 


145-6405 
145-6387 


56-3338 


94-4843 
145-6393 


#119-5813 


99-4977 
#103-5107 
“103-2878 

113-554 

143-6004 


145-6401 









CZDRLD CREATED BY MACRO ON 2-NOV-81 AT 16:13 PAGE 8 
ae 177 


SYMBOL CROSS REFERENCE v01 
SYMBOL VALUE REFERENCES 
047542 24-3566 #1436295 
EMI 047574 54-3253 4143-6296 
EM14 047644 2¢- 8527 #143-6297 
EM15 047733 54- seg #143-6298 
EM16 047757 54-325 #143-6299 
EM17 050003 54-3260 #143-6500 
EM2 047162 53-3180 #143-6287 
EM20 050072 54-3266 #143-6301 
EM202 052347 59-3452 #143-6339 
EM21 050140 54-3272 #143-6302 
EM211 052377 59-3494 #143-6340 
EM22 050210 55-3277 #143-6303 
EM23 050251 #143-6304 
EM24 050320 55-3283 #143-6305 
EM25 050351 55-3289 #143-6306 
EM26 050402 59-3458 #143-6307 
EM27 050441 59-3464 #143-6308 
EMS 047216 53-3186 #143-6288 
EM30 050476 55-3295 #143-6309 
EM31 050534 55-330 #143-6310 
EM32 050600 55-3307 =#143-6311 
EM33 050621 55-3313. #143-6312 
M34 050652 #143-6313 
EM35 050712 55-3319 = #143-6314 
EM36 050773 55-3325 59-3470 38=#143-6315 
EM37 051023 56-3330 #143-6316 
EM4 047264 53-3192 #143-6289 
EM4O 051061 56-3336 4 #143-6317 
051111 56-3342 = #143-6318 
051157 #143-6319 
051213 56-3348 57-3433 #143-6320 
051244 56-3354 #143-6321 
051314 56-3360 #143-6322 
051352 60-34 #143-6325 
051427 56-33 #143-6324 
047315 53-3198 #143-6290 
051444 56-3372 86143-6325 
051511 56-3378 #143-6326 
051570 57-3385 #143-6327 
051631 9-3476 = #143-6328 
051657 57-3389 59-3 #143-6329 
051674 57-3395 #143-6330 
051714 59-3488 #143-6331 
051752 57-3401 59-3445 #143-6332 
047346 53-3204 #143-6291 
052002 57-3408  #143-6333 
052041 57-3415 = #143-6334 
052124 57-3421 #143-6335 
052173 ak 95 14 #143-6336 
052233 58-3438 #143-6337 
052304 #143-6338 
047377 53-3210 #143-6292 








CZDRLD CREATED BY MACRO ON 2-NOV-81 AT 16:13 PAGE 9 
SEQUENCE 178 

SYMBOL CROSS REFERENCE CREF O01 

SYMBOL V. REFERENCES 

ENDEV 025622 47-3143 89-4608 112-5514 #121-5858 

ENDSTK 047132 64-3667 133-5924 #142-6284 

ENPR1 002604 #61-3552 = #115=5611) -#117=5728 = 145-6394 = 145-640 

EOPLOC 002706 *48-3170 #61-3585 87-4421 88-4571 161-288 133+5924 *133-5924 #133-5924 *133-5924 
133-5924 133-5924 *133-5924 *133-5924 *133-5924 

EOPRSM 032504 133-5924 #133-5924 

ER = 100000 #44~-307 68-3764 73-3889 91-4674 96-4902 96-4906 96-4910 96-4913 104-5172 
104-5195 109-5430 109-5433 110-5466 110-5469 113-5551 

ERCAPT 003126 #64-3667 121-5884 122-5902 

ERCHDR 036173 133-5924 #142-6214 

ERRCHK 004064 #73-3886 115-5618 117-5713 

ERRCNT 002714 #61-3588 «#914651 = 94-4806 = 106-5276 §=*107-5310 9 *108-5392 *113-5524 *115-5590 *117-5684 
*135-5926 136-5928 136-5928 *136-5928 

ERROR = 104000 #43-3049 78-4221 89-4611 90-4635 91-4660 91-4678 92-4713 92-4730 92-4743 
92-4751 92-4755 92-4761 92-4765 93-4780 93-4784 93-47 93-4794 94-4821 
94-4836 94-4851 95-4874 95-4881 96-4897 96-490 96-4915 97-4931 97-4941 
98-49 98-49 99~4981 99-4991 100-5009 100-5017 101-5034 101-5046 102-5 
102-5085 =103-5113) = 103-5131 = 103-5141 =: 104=5163 =6104-5173 §=104-5186 104-5196 105-5222 
105-5236 106-5268 106-5275 106-5278 107-5309 107-5312 107-5319 107- 107-534 


2 566 
5706 3=117=5714 =: 117-5718 =. 117-5725 Lag £04 BS a 14 Bh ap LA 118-5770 
~3050 81-4264 *81-4264 81-4264 133-3934 #133-5924 #133-5924 *133-5924 


ER200 002274 #59-3442 136-5928 136-5928 

ESC = 000033 #47-3128 63-3632 140-6011 140-6033 140-6063 140-6088 140-6109 140-6132 140-6155 

ESCAPE 037064 63-3634 #142-6224 

ETDEV 036350 121-5881 #142-6217 

EWCR 002602 a bm *68-3761 *94-4830 *107-5345 *115-5625 115-5630 145-6389 145-6393 145-6398 

EXPAND 027516 125-5913 #126-5913 

F.IXTBL 003170 #65-3684 139-5989 141-6177 

FLAG 002652 #61-3571 - 

FNC = 000016 #44-3059 97-4930 98-4955 99-4980 105-5234 

FNCCNT 002654 #61-3572 

Fl = 000002 #44-3056 97-4932 109-5413 117-5697 = 118-5752 = 120-5835 

F2 = 000004 ser rhe 75-3942 75-4015 96-4898 96-4908 98-4957 101-5040 102-5073 103-5121 

F3 = 900010 #44-3058 99-4982 115-5603 117-5697 119-5793 120-5835 

GNS = teeene 132-5921 = 132-5921 =: 132-5921 = 132-5921 =: 132-5921 =: 132-5921 =: 132-5921 =. 132-5921 =: 132-5921 
132-5921 =. 132-5921 §=—- 1132-5921 = 132-5921 =: 132-5921 §=—- 132-5921 =. 132-5921 =: 132-5921 =: 132-5921 
132-5921 =. 132-5921 =: 132-5921 §=-: 132-5921 9= 132-5922 =: 1132-5922 

GO = 000001 #44~-305 75-3942 82-4276 82-4278 91-4668 91-467 91-4680 91-4682 92-4716 
101-5040 102-5073 103-5121 104-5156 104-5180 105-5216 106-5261 107-5303 107-5329 
108-5378 109-5414 113-5543 113-5545 39114-5571 =. 115-5604 9116-5655 = 117-5698 ~=—: 118-5753 
119-5794 120-5836 

GOAGIN 026344 122-5902 #122-5903 

GTSWR = 104406 #152-5921 

HAK TPM 032174 133-5924 #133-5924 

HEADER 040452 139-5947 #142-6259 

HT = 000011 #43-3049 123-5909 123-5909 

IBSAVE 033224 #135-5926 ©1355-5926 9 *135-5926 135-5926 135-5926 135-5926 #135-5926 








CZDRLD CREATED BY MACRO ON 2-NOV-81 AT 16:13 PAGE 10 
SEQUENCE 179 
SYMBOL CROSS REFERENCE CREF 01 
SYMBOL VALUE REFERENCES 
IE = 000100 4-3062 68-3750 73-3886 75-394 101-5040 e544 103-5121 104-5156 105-5216 
1962 $} ag Fs 107-5329 108-5378 109-5414 115-5603 116-5654 117-5697 118-5752 
INBUF 002616 #61-3557 66-3713 68-3753 69-3792 72-3850 105-5207 106-5253 107-5296 107-5324 
107-5342 = 107-5346) 3=—&. 108-5369 = 116-5647 =—-118=5745 = 119-5786 §=— 120-5828 
INBUF 1 002656 #61-3573 
INDEV 124 77-4140 8 #77-4202 
INOOUT 022606 111-5480 #112-551 
INTA 003356 #68-3750 106-5274 107-5308 108-5390 116-5669 118-5767 119-5808 120-5850 
IOTVEC = 20 #43-3049 *81-4264 *81-4264 
KDPAR2 = 172 #47-3137 = *8B=4495 88-4499 88-4503 +*88-4515 
KDPDR2 = 172324 #47-3134 
KIPARO = 172340 #47-3135 88-4474 
KIPAR2 = 172344 #47-3136 *88-4494 88-4498 +*88-4502' *88-4514 
KIPDRO = 172300 #47-3132 88-4466 
KIPDR2 = 172304 #47-3133 
LENCHK 00262 #61-3560 69-3793 69-3794 69-3805 *72-3851 *72-3852 72-3861 
LETNCR 037173 *63-363 63-3637 #142-6227 
LEVEL 00254 #61-3532 0 *75-3932 0 *75-3947 = * 75-3989 75-3995 = * 103-5127 “alae #103-5138 103-5139 
105-5211 106-5258 107-5301 108-5374 109-5410 110-5448 115-5595 116-5652 117-5689 
118-5750 . 119-5791 3 es 145-6399 
LEVELS 00473 75-3933 #75-4030 103-5102 
LEVELS = 000140 #47-3123 ~4031 101-5028 104-5153 
LEVELS = 0002 #47-3124 75-4031 
LEVELS = 000240 #47-3125 75-4030 
LEVEL6 = 0003 #47-3126 75-4030 
LEVEL? = 000340 #47-3127 48-3151 70-381 75-3932 75-3945 75-3991 78-4215 88-4463 88-4492 
102-5070 103-5118 138-5932 138-5932 138-5932 140-6121 
LF = 000012 #43-3049 123-5909 123-5909 
LODBUF 003302 #66-3713 106-525 107-5293 108-5366 116-5644 118-5741 119-5782 120-5824 
LOOP 00266 #61-3575 = 76-4044 76-4056 *76-4087 
LRGSTC 002704 #61-3584 63-3640 63-3650 77-4139 140-6007 “ysorets? 
= 01 #44~-3073 68-3755 70-3818 -39 75-4003 75-4017 91-4650 91-4654 92-4700 
92-4702 92-4762 93-4777 93-4791 94-4809 96-489 96-4894 96-4896 97-4924 
98-494 4974 100-5003 . 101-5026 101-5038 102-5072 103-5103 103-5119 104-5156 
105-5214 106-5260 107-5302 107-5321 107-5328 108-5376 109-5412 110-5451 113-5529 - 
115-5597 = 116-5663 =—-117-5691 =—-1117-5707 = 118-5761 =6119-5802 120-5844 
MAICLR 007220 #84-4321 113-5526 
MAISET 010220 #85~-4357 91-464 
MANS IZ 002670 #61-3578 +*87-4405 87-4426 =* 139-5990 *141-6176 
MBD 034230 48-316 #139-5938 
MBD IAL 040643 139-5940 #142-6261 
MEMGMT 002712 he poe 82-4284 82-4289 82-4292 *88-4459 *88-4465 *88-4497 +*88-4501 
MEPITM 033514 136-5928 *136-5928 #136-5928 
ME SSAG 002650 #61-3570 
MMPS = 000252 #47-3139 88-4491 88-449 *88-4518 
MMRO = 177572 #47-3131 =*88-4464 #8 8-449 *88-4512 
MMVECT = 00025 447-3138 88-4489 *88-4490 88-4519 
MSG 002 #61-3568 
MUSTE 037072 139-5985 #142-6225 
1 04130 88-4524 #142-6267 








CZDRLD 


CREATED BY MACRO ON 2=-NOV-81 AT wn 
oor REFERENCE 


REFERENCES 
~4528 
77 


#43-3049 


75-4009 
*77-4106 


#77-4205 
146-6416 


94-4807 
#136-5928 


4136-5928 


#80~-4245 

*121-5859 
139-5980 

#75-4036 


43-3049 


*81-4264 


#142-6243 
#1426240 


#142-6248 
88-4504 


. 


115=5600 
109-5430 


77-4197 


78-4222 


115-5591 


139-5956 
121-5868 
139-5986 


140-6126 


*81-4264 


PAGE 11 
QUENCE 
CR 


180 
EF v01 


91-4662 


*115-5602 
109-5433 
*88-4460 


*88-4491 


117-5685 


140-6149 
*75=3945 
*108-5375 


*138-5932 


113-5537 


115-5621 


110-5466 


88-4523 


88-4518 


#121-5891 
14 


140-6037 


*75-3991 
*109-5411 


#138-5932 


4146-6424 


117-5694 
110-5469 


*89-4609 
145-6397 
88-4522 


*78-4215 
*110-5450 


"138-5932 


*117-5695 
113-5551 


89-4613 
*89-4610 


*122-5902 
141-6190 


*101-5028 
*#115-5596 


*138-5932 


.117*5720 =: 1175723 
145-6380 

89-4612 

103-5105 103-5127 
116-5653 *117-5690 


CZDRLD 


SYMBOL 
SYMBOL 
QTYBRD 


RA 
RBAR 
RBDR 


RCSR 


RDCHR 
RDDEC 
RDLIN 
RDOCT 


RDYCHK 


READ 


REGADR 
REINIT 
REIR 


RESVEC 


RSTRT 
RWCR 


RY 


R6 


R7 
SCOPE . 


SDADRS 
SDRINV 


CREATED BY MACRO ON 2-NOV-81 AT 16:13 PAGE 12 
SEQUENCE 181 
CROSS_ REFERENCE CREF v01 
002414 65-3687 65-3689. 75-3999 
121-5861 121-5887 122-5902 
= 002416 65-3696  *65-3696  *65-3697 
002566 *68-3760 68-3770 *92=4719 
94-4843 *94-4848 94-484 
115-5626 *117-5719 117-5720 
002564 #92=4734 92-4735 #92=4740 
94-4819 100-5005 100-5006 
‘ #119-5810 119-5811 145-6384 
002560 #68-3754 68-3755 68-3763 
#75=4016 75-4019 + #91-4656 
"92-4756 92-4759 #93-4785 
#96-4899 96-4900 96-4904 
97-4934 98-4950 98-4951 
#101-5029 101-5030 *101-5043 
#104-5169 104-5171 #1045185 
#106-5267 *107-5318 | *107-5334 
109-5432 *110-5457  *110-5463 
113-5552 #114-5572  #115-5610 
145-6386 145-6388 145-6392 
= 104410 129-5915 #132-5921 
= 104413 
= 104411 131-5919 #132-5921 
= 10441 
002632 
002722 75-3963 75-3977 77-4126 
140-6106 140-6129 140-6152 
002416 65-3695 #754025. *75-4026 
140-6025 140-6053 141-6183 
012556 122-5906 
002562 *75-4001_ 75-4005. 75-4009 
145-6387 145-6401 
= 000010 
026364 #1225907 . 
002570 *68-3766 *92-4704 92-470 
#94-4833 94-4834 — #107-5344 
145-6398 145-6406 145-6407 
= 000200 68-3765 3890 73-3892 
101-5032 102-5063 102-5065 
113-5532 113-5534 
=%000006 *B1-4264 *81-4264 81-4264 
=%000007 : 
= 000004 89-4593 90-4622 91-4643 
98-4947 99-4972 100-4999 
107-5287 108-5360 109-5402 
117-5682 118-5738 119-5778 
040306 #1426256 
002532 #101-5035 101-5044 101-5050 
#104-5150 104-5160 104-5167 
#106-5255 106-5265 106-5272 
*108-5371 108-5382 108-5388 
#1155592 115-5608 115-5616 


76-4050 
122-5904 


148-6598 


77-4148 
76-4046 


*95-4876 


#92-4710 
*115-5624 


73-3894 
103-5107 


ONoOfN OM 


*77=4114 
139-5 


-5950 


#92=-4727 


15-6602 


139-5944 
87-4438 


95-4877 


92-4711 
115-5630 


91-4645 
103-5112 


77-4121 
140-6003 


*115-5622 
73-3888 


145-6403 


140-6008 
88-4554 


95-4879 


#92-4749 
#117-5715 


92-4757 
109-5430 


St I IWO 
—Oo0O00 jM-OoOf 





NUAOW moron 


#77-4129 
*140-6023 
#92-4752 
114-5577 
145-6398 
#94-4811 
115-5628 


73-3891 


0 
45-6404 


140-6030 
139-5953 


*111-5483 


*93-4778 
145-6382 


93-4786 
109-5433 


*87-4430 


#93-4781 


*116-5671 
ph awe 


*120-5842 
145-6405 


140-6060 
139-5983 


111-5485 


*94-4826 
145-6389 


N 14 


CZDRLD CREATED BY MACRO ON 2-NOV-81 AT 16:13 PAGE 13 
SEQUENCE 182 
SYMBOL CROSS REFERENCE CREF 01 
SYMBOL VALUE REFERENCES 
tN tag 149 *118=5747 9118-5757 = 1118-5765 9=*119-5788 = 119-5798 1419-5806 *120-5830 120-5840 
SDRVS 002534 #61-3527_ -#101-5036 §=6 101-5045 =: 101-5051 *102-5068 102-5078 102-5084 *103-5116 103-5126 
’ 103-5137 =*104-5151 = 104-5161 = 104-5168 =9*104-5175 = 104-5184 = 104-5191 =*105-5209 105-5221 
105-5227 *106-5256 106-5266 Ie" 2602 *#107=5299 107-5307 107-5317 *107-5326 107-5333 
107-5352 108-5372 108-5385 108-5589 *109-5408 109-5419 109-5426 *110-5446 110-5456 
110-5462 *115-5593 115-5609 115-5617 *116-5650 116-5660 116-5668 *117-5687 117-5703 
Near 145 *118-5748 =6118-5758 = 118-5766 9=*119-5789 = 119-5799 = 119-5807 120-5831 120-5841 
006610 #81-4263 87-4417 139-5939 
037400 140-6005 140-6027 140-6058 140-6083 140-6104 140-6127 140-6150 #142-6237 
037352 133-5924 133-5924 133-5924 136-5928 #142-6233 
037355 139-5952 #142-6234 
037361 76-4058 76-4061 139-5955 #142-6235 
037370 76-4065 76-4072 76-4074 76-4080 139-5959 139-5965 139-5967 139-5973 #142-6236 
= 001300 #43-3049 81-426 87-4416 138-5932 139-5938 
77-4145 = #774203 
000216 #48-3165 
011424 48-3172  #87-4406 139-5991 / 
011420 48-3163 487-4405 88-4545 138-5932 146-6422 
036120 133-5924 #142-6213 ry 
= 177774 #43-3049 
040252 140-6054 #142-6255 
001340 #52-3178 75-3959 77-4112 77-4166 77-4184 77-4191 81-4264 81-4264 81-4264 


*81-4264 81-4264 89-4593 90-4622 91-4643 92-4699. 92-4714 35-2035 wise 


93-4771 94-4804 94-4822 94-4837 94-4852 95-4864 96-4888 97-492 98-494 
: 99-497 100-4999 101-5025 102-5058 103-5092 104-5148 105-5203 106-5245 107-5287 
108-5360 109-5402 110-5441 = 111-5478 =111-5504 + =113-5522 3=: 114-5568 = 115-5588 = 116-5641 
117-5682 = 118-5738 }=6119-5778 §=— 120-5820) )3=s- 127-5915) §=—. 1127-5915. 133-5924 = 133-5924 =: 133-5924 
133-5924 133-5924 133- 133-5924 135-5926 135-5926 135-5926 135-5926 136-5928 
000176 #48-3157 81-4264 127-5915 = 127-5915 

= 000001 #43-3049 

= 000001 #43-3049 43-3049 

= 000002 #4 3-3049 43-3049 

= 000004 #43-3049 43-3049 

= 000010 #43-3049 43-3049 

= 000020 443-3049 43-3049 

= 000040 #43~-3049 43-3049 

= 900100 #43-3049 43-3049 

= 000200 #43-3049 43-3049 

= 000400 #43-3049 43-3049 

= 001000 #43-3049 43-3049 

= 000002 #43-3045 

= 002000 #43-3049 

= 004000 #43-3049 

= 010000 #4 53-3049 

= 020000 #43-3049 

= 040000 #43-3049 

= 100000 #43-3049 + 

= 000004 #43-3049 

= 000010 #43-3049 

= 000020 43-3049 





ee Ce Ce 


CZDRLD CREATED BY MACRO ON 2-NOV-81 AT 16 PAGE 14 


213 
SEQUENCE 183 
CREF 


SYMBOL CROSS REFERENCE v01 
SYMBOL VALUE REFERENCES 
| SS = 000040 a mrt 
| SW6 = 000100 943-3049 
Sw? = 000200 #4 3-3049 
Sw8 = 000400 #43-3049 
| Sw9 = 001000 443-3049 
Ki~ 002546 61-3535 88-4535  *88-4547 88-4552 288-4553 
TBITVE 000014 #43-3049 
TIME 002660 #61-3576 = #75=3935 = #75=3943 = # 101-5039 9=*101-5041 *102-5071 *102-5074 *103-5120 *103-5122 


#106-5155 #1046-5158 *104-5179 *104-5181 *105-5215 *105-5217 *106-5262 *106-5263 *107-5289 
2 *107-5330 108-5377 *108-5379 #109-5415 109-5416 *110-5449 #110-5453 

6 *116-5656 9*116-5657 94*117-5699 *117-5700 *118-5754 *118-5755 119-5795 

#119-5796 wit ae *120-5838 *141-6204 *141-6206 *141-6210 


002636 #61-3565 141-6210 
002634 #61-3564 
#43-3049 
000006 467-3141 77-4108 77-4109 77-4196 87-4415 88-4462 *88-4463 *88-4522 
040051 140-6123 #142-6252 
= 000004 #47-3140 77-4106 *77-4107 *77-4197 87-4414 287-4414 88-4460 *88-4461 *88-4468 
*88-4488  +*88-4513 88-4523 
002642 #61-3567 
902640 #61-3566 
000064 #43-3049 
000034 #43-30469 *81-4264 181-4264 
000014 #43-3049 
041576 #142-6272 146-6412 
040341 121-5875 #142-6257 
012370 #88-4534 88-4549 121-5890 
007066 #82-4274 91-4684 
012606 88-4572 #89-4593 134-5924 
015112 95-4866 95-4878  #96-4888 134-5924 
015246 96-4890 #97-4922 134-5924 
015532 97-4938  #98-4947 134-5924 
015716 98-4963 #99-4972 134-5924 
016102 99-498 #100-4 134-5924 
016272 100-5001 #101-5025 134-5924 
016524 101-5048 #102-5058 134-5924 
016762 102-5079 #103-5092 134-5924 
01 #90-4622 134-59 
017360 103-5133 103-5140 #104- 134-5924 
017764 104-5165 104-5188 104-5193 #105-5203 134-5924 
020300 105-52 #106-52 134-5924 
020576 #107-5287 134-5924 
021334 107-532 107-5349 #108-5360 134-5924 
021636 #109-540 134-5924 
022126 109-54 109-54 #110-5441 134-5924 
022404 110-5459 110-5467 #111-5478 134-5924 
013134 90- #91-4643 134-5924 
022622 112-5513 #113-5522 134-5924 
023110 #114-556 134-5924 
023240 114- #115-5588 134-5924 
023620 #116-5641 134-5924 
024124 116-5665 116-5673 #117-5682 134-5924 





CZDRLD «CREATED BY MACRO ON 2-NOV-81 AT 16:13 PAGE 15 
SEQUENCE 184 
SYMBOL CROSS REFERENCE CREF vO01 
Sy VALUE REFERENCES 
TST35 024506 W118-5758 134-5924 
TST 025 118-5763 #119-5778 134-5924 
S137 025320 119-5804 119-5812 #120-5820 134-5924 
TST4 013466 #92=4699 134-5924 
TST40 = 025622 WI-5145 120-584 
TST5 014172 92-4764 893-4771 134-5924 
TST6 014366 93-4793  #94-4804 134-5924 
1ST? 014734 #95-4864 134-5924 
TWO 037420 76-4079 139-5970 #1426242 
TYPCNF 005142 #76-4044 -4198 
TYPDE = 104414 121-5878 122-5902 #132-5922 133~5924 
TYPDS = 104405 76-4051 76-4057. 121-5874 =: 121-5883 
140-6004 141-6200 
TYPE = 104401 63-3630 63-3634 63-3637 ©: 63-3657 
76-4049 76-4052 76-4058 = 76-4061 
76-4077 76-4079 += 76-4080 76-4083 
77-4145 77-4155. 77-4160 = 77-4172 
91-4643 92-4699. 93-4771 4804 
100-4999 101-5025 102-5058 103-5092 
109-5402 110-5441 111-5478 113-5522 
119-5778 120-5820 121-5872 121-5873 
122-5902 123-5909 124-5911 125-5913 
127-5915 129-5915 129-5915 129-5915 
133-5924 133-5924 133-5924 133-5924 
133-5924 135-5926 136-5928 136-5928 
136-5928 138-5932 139-5940 139-5942 
139-5964 139-5965 139-5967 139-5970 
139-5985 140-6002 140-6005 140-6017 
140-6058 140-6072 140-6076 140-6079 
140-6146 140-6150 141-6178 141-6189 
TYPOC == 104402 76-4060 88-4527 127-5915 #132-5921 
TYPON = 104404 #132-5921 
TYPOS = 104403 76-4063 77-4142 79-4236 ~=— 80-4252 
ANG 056016 88-4526 #146-6409 
UCAL 037511 141-6201 #1426247 
A = 002456 465-3698 =3699 *65-3699  *65-3700 
VCLCHR 037003 140-6076 #1426223 
VECADR 902456 461-3513 65-3698 76-4047. «77-4119 
139-5998 140-6055 140-6078 141-6182 
VECERR 036617 140-6072 #1426221 
Mi 037407 76-4071 139-5964 #142-6239 
WCLEN 002630 461-3562 #106-5248 *106-5249 106-5252 
*108-5365 108-5368 *116-5645 116-5646 
119-5785 120-5825 120-5826 120-5827 
WCR 002516 #61-3520 68-3766 88-4555 89-4596 
4710. 92-4749. 93-4773 = «93-4778 
105-5212 106-5252 107-5295 107-5323 
113-5536 115-5599 115-5624 116-5646 
145-6382 145-6389 145-6393 145-6397 
XCHKBU 043646 61-3558 #142-6280 
XINBUF 042644 61-3557 #1426278 


C 15 


146-6419 
122-5902 


75-3961 


140-6083 
141-6198 


136-5928 
#132-5921 


77-4138 


*107-5291 
*718-5742 


89-4597 


145-6398 


#132-5921 
75-3968 


136-5928 
139-5957 


87-4445 


*107-529 
*118-574 


91-4661 


145-6406 


133-5924 
75-3972 


40-6104 
146-6409 
139-5954 
140-6056 


88-4561 


107-5295 
118-5744 


92-4703 
2 


145-6407 


133-5924 
75-3975 


146-6412 
140-6026 
146-6414 


139-5956 


107-5323 
*119-5783 


146-6410 


139-5951 
75-3982 


146-6416 
146-6411 


139-5987 


*108-5364 
#119-5784 


120-5827 


52-3178 
52-3178 
123-5909 
133-5924 
126-5913 
139-5949 
*140-6145 


52-3178 

52-3178 

88-4565 
*140-6144 


81-4264 
#52-3178 
#52-3178 

77-4137 

140-6124 


81-4264 


77-4130 
*140-6122 


81-4264 
36-5928 

77-4118 
*140-6121 


D 15 


v01 


185 
129-5915 
135-5926 
81-4264 
76-4066 


*123-5909 #123-5909 
140-6102 


PAGE 16 
CREF 


SEQUENCE 


129-5915 
135-5926 
123-5909 
132-5921 
81-4264 
*65-3701 
*140-6100 
*140-5169 


139-5976 #142-6241 


#49-3176 
135-5926 

*140-6099 

*140-6168 


82-4280 


REFERENCES 
#44-3060 
#52-3178 
#52-3178 
#52-3178 
#52-3178 
#52-3178 
140-6147 


CREATED BY MACRO ON 2-NOV-81 AT 16:13 
135- 


SYMBOL CROSS REFERENCE 
001474 


Qa 
= 
a 
a 
NN 
YL 


$DDWO 


*121-5886 121-5887 *122-5903 
*75-3998 76-4045 = #77=4115—#77-4135 87-4431 


*87-4419 
*65-3694 


*87-4412 
*65-3686 


~ANNOMMOoO Sch ped ped ee | 

TMWMAMNAMAAAAA AAW st SP 

| eh week, seh seth peedh, meh seh, mel seh zee, wel, see, eee el meee see ee 
oooo oooocoeo 





CZDRLD 


CREATED BY MACRO ON 2-NOV-81 AT 16:13 PAGE 17 
SEQUENCE 186 
CROSS REFERENCE CREF v01 
VALUE REFERENCE 
026534 ISe-2006 150-2906 #122-5902 
027474 125-5913 #125-591 
026324 49-3175 = #122-5902 =: 135-5926 
026102 81-4264 3=#122-5902 
026340 #122-5902 
001430 #52-3178 75-3957 77-4110 77-4164 
137-5930 137-5930 
001431 #52-3178 81-4264 87=4424 123-5909 
026046 121-5888 #122-5902 
026074 *81-4264 #122-5902 122-5902 
001303 #52-3178 133-5924 *133-5924 133-5924 
001315 #52-3178 = 81-4264 §=— #1335924 = 133-5924 
032656 81-4264 #135-5926 
001316 #52-3178 = 135-5926 9=*135-5926 135-5926 
145-638} 145-6382 145-6383 145-6384 
145-6590 145-6391 145-6392 145-6393 
145-6399 145-6400 145-6401 145-6402 
001534 #53-3178 136-5928 136-5928 
033226 135-5926 #136-5928 
001312 #52-3178 64-3673 = 89-4594 89-4606 
122-5902 *122-5902 133-5924 *135-5926 
001376 #52-3178 = 81-4264 = * 133-5924 = 135-5926 
001430 #52-3178 
001554 49-317 #52-3178 
001412 #52-3178 87-4409 *137-5930 
034072 *137-5930 *137-5930 137-5930 *137-5930 
00135 #52-3178 123-5909 123-5909 123-5909 
* 001355 #52-3178 123-5909 123-5909 
001320 #52-3178 
001324 #52-3178 
026310 122-5902 #122-5902 
026314 122-590 122-5902 #122-5902 
030064 #127-5915 = 127-5915 32-5921 132-5921 
> 41-3032 41-3032 41-3032 
001000 #49-3176 
031110 *#131-5919 #131-5919 
001304 #52-3178 
001335 #52-3178 127-5915 129-5915 129-5915 
001314 #52-3178 =*135-5926 §=6135-5926 135-5926 
001406 #52-3178 -5909 123-5909 129-5915 
131-5919 135-5926 135-5926 
034071 *137-5930 #137-5930 
001306 #52-3178 81-4264 133-5924 133-5924 
001310 #52-3178 = #8 11-4264 3=— #8 9-459 *90-4622 
#92-4748 = #94~4814 = #94-4829 = 894-4845 
0-4 *101-5025 *102-5058 *103-5092 
*107-5287 *108-5360 *109-5402 *110-5441 
*117-5682 *118-5738 *119-5778 *120-5820 
135-5926 
1442 #52-3178 
001446 #52-3178 
001452 #52-3178 





E 15 


77-4182 
123-5909 


~5924 


#137-5930 


*135-5926 
129-5915 


*133-5924 


8 
133-5924 


77-4189 
137-5930 


*135-5926 


133-5924 


87-4422 


135-5926 


136-5928 
145-6387 
145-6396 
145-6405 


121-5882 
135-5926 


135-5926 
130-5917 


133-5924 


2 
*104-5148 
*114-5568 
*133-5924 


123-5909 


135-5926 
136-5928 
145-6406 


122-5902 


135-5926 
130-5917 


133-5924 


® 
*115-5588 
133-5924 


135-5926 


122-5902 


136-5928 
131-5919 


133-5924 
#92-4737 
99-4972 


133-5924 


CZDRLD 











CREATED BY MACRO ON 2-NOV-81 AT 16:13 
SEQUEN 
CROSS REFERENCE 
VALUE REFERENCES 
001456 #52-3178 
00141 49-3176 49-3176 #52=3178 
001440 #52-317 
001444 #52-3178 
001450 #52-3178 
001454 #50-3178 
001002 #49-3176 
034070 *#137=5930 137-5930 *137-5930 
030562 127-5915 #129-5915 
001424 952-3178 *137-5930 137-5930 
001426 #52-3178 «137-5930 
001410 #52-3178 87-4410 137-5930 
030551 127-5915 #129-5915 
001441 #52-3178 
001445 #52-3178 
001453 #52- 3178 
001455 #52-3178 
001354 #52-3178 123-5909: 123-5909 
027752 126-5913 #1265913 
= 000001 #88-4593 88-4593 #88-4593 
04643 #90-4643 —-91-4643 
492-4771 93-4771 —-#93-4804 
95-4864 #95-4888 95-4888 
497-4947 97-4947 #974947 
4 -4999 100-49 
#101-5058 102-5058 #102-5092 
104-5148 #104-5203 -520 
4106-5287 106-5287 #106-5287 
08-*402 #108-5402 109-540 
#110-5478 111-5478 #112-5522 
114-5568 #114-5588 114-558 
#116-5682 116-5682 #116-5682 
118-5778 #118-5778 119-577 
27164 #124-5911  #124-5911  #124-5911 
027166 #124-5911  #124-5911 124-591 
032160 133-5924 133-5924 #133-5924 
001416 #4B-3165 #52-3178 64-3672 
*#122-5902 122-5902 122-5902 
002716 #48-3166 861-3589 64-3671 
146-641 
001 #49~3176 
034162 138-5932 #138-5932 
034074 81-4264 #138-5932 138-5932 
034112 138-5932 #138-5932 
001404 #52-3178 123-5909 123-5909 
130-5917 131-5919 131-5919 
030302 #128-5915 132-5921 132-5921 
030574 #130-5917 132-5921 132-5901 
030422 #129-5915 132-5921 132-5921 
030752 #131-5919 132-5921 132-5921 
= 000007 #128-5915 128-5915 
026336 #122-5902 


PAGE 18 
CE 187 
CREF 01 


81-4264 


#137-5930 


*137-5930 


123-5909 
89-4593 
99 


*124-5911 


*81-4264 
122-5902 
*87-4408 


F 15 


123-5909 


137-5930 


#89-4622 
91-4699 


119-5820 
#124-5911 
*87-4406 


146-6418 
88-4456 


133-5924 


*137-5930 


89-4622 


#119-3820 
#126-5911 
88-4454 
88-4540 


135-5926 


#89-4622 
92-4699 


120-5820 


88-4538 
121-5876 


129-5915 


90-4622 
#92-4771 


1 
118-5738 


121-5877 
*122-5902 


130-5917 


#90-4643 
at 4 
97-4922 

999 
101-5058 

#103-5148 
106-5245 

#108-5402 
110-5478 

A at Fe 


16-5641 
#118-5778 


*122-5902 
122-5902 


130-5917 








G 15 


CZDRLD CREATED BY MACRO ON 2-NOV-81 AT 16:13 PAGE 19 
SEQUENCE 188 
SYMBOL CROSS REFERENCE CREF 01 
SYMBOL VALUE REFERENCES 
$R2A = teneee 132-5921 
SSAVRE = teeeee 132-5921 
SSCOPE 031200 o1-383 #133-5924 
SSETUP = 000137 #48-31 § 48-3152 ot ES 48-3152  #48-3152 48-3152  #48-3152 48-3152 #48-3152 
48-315 #48-3152 48-315 #48-3152 81-4264 1=4264 81-4264 81-4264 81-4264 
81-4264 1-4264 81-4264 81-4264 81-4264 81-4264 81-4264 122-5902 122-5902 
127-5915 = 129-5915 = 133-5924 =: 135-5926 5-5926 35-5926 135-59 
$STUP = = 177777 #48-3152 #48-3152 48-3152 #48-3152 #48-3152 48-3152 #48-3152 #48-3152 48-3152 
#48-3152 #48-3152 48-3152 #48-3152 #48-3152 48-3152 #48-3152 #48-3152 48-3152 
SSVLAD 032124 33-5924 133-5924 #133-5924 
SSVPC = 001000 #49-3175 49-3175 
SSWR = 163400 #41-3021 41-3032 42-3034 42-3034 42-3034 42-3034 42-3034 42-3034 42-3034 
42-303 52-3178 52-3178 52-3178 81-4264 81-4264 81-4264 81-4264 81-4264 
89-4593 90-4622 91-4643 92-4699 93-4771 94-4804 ~4864 96-4888 97-4922 
98-494 99-4972 100-4999 §=101-5025 102-5058 103-5092 104-5148 105-5203 106-5245 
107-5287 108-5360 109-5402 110-5441 111-5478 113-5522 114-5568 115-5588 116-5641 
117-5682 = 118-5738) =6119-5778 = 120-582) }= 122-5902 3=— 122-5902 §=—.: 1122-5902 = 122-5902 §=—- 122-5902 
133-5924 133-5924 133-5924 133-5924 133-5924 133-592 133-5924 133-5924 1335-5924 
133-5924 133-5924 133-5924 133-2056 133-5924 133-5924 133-5924 133-5924 133-5924 
133-5924 133-5924 135-5926 135-5926 135-5926 135-5926 135-5926 135-5926 135-5926 
135-5926 135-5926 135-5926 135-5926 
SSWREG 001432 #52-3178 81-426 
SSWRMK = 000200 #41-3030 42-303 42-303 42-3034 42-3034 42-3034 42-3034 42-3034 42-3034 
42-303 133-5924 133-5924 133-5924 133-5924 133-5924 133-5924 133-5924 133-5924 
133-5924 133-5924 133-5924 
SSwO8T 032556 133-5924 #134-5924 
STESTN 001414 *48-3169 = #52-3178 = #87-4411_ #87-4420 = # 133-5924 9=#133-5924 136-5928 145-6379 145-6380 
145-6381 145-6382 145-6383 145-6384 145-6385 145-6386 145-6387 145-6388 145-6389 
145-6390 145-6391 = 145-6392 = 145-6393 = 145-6394 145-6395 145-6396 145-6397 145-6398 
144-4135 145-6400 145-6401 145-6402 145-6403 145-6404 145-6405 145-6406 5-640 
$TKB 001346 i als H 1¢3-207 123-5909 §=127-5915 127-5915 127-5915 127-5915 128-5915 128-5915 
STKS 001344 #52-3178 123-5909 123-5909 127-5915 127-5915 127-5915 127-5915 127-5915 128-5915 
128-5915 133-5924 133-5924 141-6208 
STMPO 001360 #52-3178 = *73-3892_ 81-4263 4265 #105-5205 = 105-5212 *105-5237 = 114-5570 117-5705 
126-5913 = =#126-5913 = *126-5913 = *126-5913 -*126-5913 = 126-5913 wri wide 126-5913 *126-5913 
*136-5928 136-5928 136-5928 136-5928 *138-5932 138-5932 145-6404 
STMP1 001362 #52-3178 69-3790 69-3797 69-3807 72-3848 72-3855 72-3869 72-3872 *75-3938 
75-3946 35-3996 = *90-4627 = *90-4628 = 90-4630 §=— 90-4632 90-4633 #91-4645 = 91-4648 
91-4657 74659 = 103-5094 9 *103-5095 *103-5096 *103-5097 *103-5098 +*103-5099 *103-5100 
#117-5717) #1175724 = 126-5913) -#126-5913 = *126-5913 = 126-5913 = 126-5915 *126-5913 *133-5924 
133-5924 *133-5924 145-6379 145-6381 145-6400 145-6405 
STMP2 001364 #52-3178_ 69-3798 _ = 72-3856 = 72-3865 105-5204 105-5231 105-5235 *105-5238 *125-5913 
#125-5913 = 125-5913 = 125-5913 }=— 145-6395 ~6396 
STMP3 001366 #52-3178 69-3801 72-3857  +*72-3866 145-6395 145-6396 
STMP4 001370 #52-3178 = 69-3799 §= 69-3800 §=. * 72-3858) = 72-3859 = 72-3867 §=—. 72-3868 145-6595 
STMPS 001372 #52-3178 69-3802 69-3803 145-6395 
STMP6 001374 #52-3178 
STN = 000040 #41-3022 41-3032 88-4593 89-4593  #89-4593 89-4622 90-4622 #90-4622 +*90-4634 
90-464 91-4643 #91-4643 91-4699 92-4699 #92-4699 92-4764 92-4771 93-4771 
#93-4771 = 93-4793 93-4804 94-4804 #94-4804 94-4864 95-4864 #95-4864 95-4866 
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CZDRLD CREATED BY MACRO ON 2-NOV-81 AT 16:13 PAGE 4 
SEQUENCE 190 


SYMBOL CROSS REFERENCE CREF 01 
VALUE RE 


SYMBOL FERENCES 
134-5924 = 134-5924 = 134-5924 4134-5924 = 134-5924 §=—- 134-5924 = 134-5924 
134-5924 = 134-5924 =. 134-5924 134-5924 = 134-5924 9=—- 134-5924 9134-5924 
134-5924 = 134-5924 = 134-5924 4134-5924 =: 134-5926 = 134-5924 «134-592 
134-5924 = 134-5924 = 134-5924 134-5924 = 134-5926 = 134-5924 9134-5924 
#134-5924 = 134-5924 = 134-5924 = 134-5924 = 134-5924 = 134-5924 91354-5926 
134-5924 134-5924 = 134-5924 = #134-5924 

SOF ILL 027165 *1246-5911  #124-5911 = 124-5911 -#124-5911 

S4OCAT = seeene 133-5924 135-5926 

- SAV 041640 #142-6275 

-SASTA = teeeee 137-5930 137-5930 

 $X = 001000 #49-317 49-3176 
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CZDRLD CREATED BY MACRO ON 2-NOV-81 AT 16:13 PAGE 22 


SEQUENCE 191 
MACRO CROSS REFERENCE CREF 01 
MACRO NAME REFERENCES 
N #43-3049 
COM #43-3049 
ESCAPE #43-3049 
GETPRI #43-3049 
GETSWR #43-3049 
MSG1 #88-4586 89-4593 
MSG10 #91-4693 92-4699 
MSG25 #94~4858 #95-4864 
MSG26 #95-4882 #96-4888 
#89-4616 90-462 
MSG32 #93-4795 #94-4804 
MSG340 #96-4917 = #97492 
MSG341 #97~-4942 898-4947 
MSG342 #98-4967 99-4972 
MS 2-4766 3=— #93-4771 
MSG40 4992 #100-4999 
MSG43 #100-5019 #101-5025 
#101-5052 #102-5058 
MSG450 #102-5086 103-509 
MSG46 #103-5142 104-5148 
MSG47 #104-5197 105-520 
MSG50 #105-5240 #106-5245 
MSG51 #106-5281 107-528 
MSGS2 #1075355 #108-5360 
MSG53 #108-5396 109-540 
MSG54 #109-5435 110-544 
MSG55 #114-5582 #115-558 
MSG550 #113-5563 114-5568 
MSG56 #116-5676 117-5682 
MSG57 #115-5636 9 #116-5641 
M #117-5733 =: 118-5738 
MSG61 #118-5773 = #119-5778 
MSG62 #119-5815 120-5820 
MSG70 #110-5472 111-5478 
MSG71 #112-5515 #113-5522 
MSG710 #90-4636 91-4643 
MULT #43-3049 
NEWTST #32-1239 «=#43-3049 = #BB-4593 = 489-4622 = #90-4643_ 91-4699 #92-4771 = #93-4804 94-4864 495-4888 
496-4922 -#97-4947 = #9B-4972)- #99-4999 —- #100-5025 4101-5058 4102-5092 #103-5148 4104-5203 #105-5245 
#106-5287 #107-5360 #108-5402 #109-5441 4110-5478 4112-5522 #113-5568 114-5588 115-5641 #116-5682 
#117-5738 #118-5778 #119-5820 
POP 41-3027 = #43-3049 = 125-5913 = 4130-5917 4131-5919 4137-5930 4137-5930 
PUSH #41-3027 = #43-3049 = #125-5913 = #130-5917 4131-5919 4137-5930 4137-5930 #137-5930 
REPORT #43-3049 
SETTRA 4132-5001 132-5921 = 132-5921 =. 1132-5921 =. 1132-5921 = 1132-5921 §=—- 132-5921 =. 1132-5921 =: 1132-5921 = 132-592 
- - - = - - = - -= - 1 
132-5921 132-5921 132-5922 
SETUP #41-3027 #43-3049 #81-4264 
SKIP #41-3014 #43-3049 90-4634 92-4764 93-4793 95-4866 95-4878 96-4890 97-4938 98-4963 
99-4988 100-5001 101-5048 102-5079 103-5133 103-5140 104-5165 104-5188 104-5193 105-5224 
107-5320 = 107-5349 = 109-5423) = 109-5431 = 110-5459 §=—-110-5467 = 112-5513 114-5578 116-5665 116-5673 
118-5765 119-5804 119-5812 120-5846 




























#41-3028 


#42-3034 


CZDRLD CREATED BY MACRO ON 2-NOV-81 AT 16:13 PAGE $3 
SEQUENCE 192 
MACRO CROSS REFERENCE CREF v01 
MACRO NAME REFERENCES 
SLASH #43-3049 
SPACE #41=3007 #43-3049 
STARS #41=3027 = #42-3037 «= #42=30467 = #43-3049 §=— 44-3054 §9=—- #45-3079 §=— #46-3103) §=— 47-3122 «= 48-3144 = #488 - 3148 
#483158 = #48-3162 «= #49-3175 49-3176 = 49-3176 = 49-3176 = 52-3178 «= #523178) 3=— #52-3178 = #61 - 3504 
#61-3508 861-3517 961-3519 «= #61-3528 §=— #61-3530 § = #62-3591 «= #635-3603 = #6 3-3619 464-3660 ~3666 
#65-3677 = =#65-3683 = #663707 §=— #663712 «= #G7-3725) = 67-3728 «= #608-37359 = 468-3749 §=— #693775 = #69- 33789 
#70-3811 #70-3816 71-3822) 09 #71-3828 = #723835) = #723847 = #73-3876 «= #73-3885 §=—- # 74-3899 §=—s- #74 - 33904 
#75-3923 = #75-3931 = #75-3950 = #75-3956 = #764039) = #76-4043 477-4096) = 477-4104 = #78-4210 = #784214 
#79=4226 = #79=4231 = #80-4240 §=— #80-4244 «= #8 1-4256 §=—- #8 11-4262 «= #B2-4268 3=— #8 2-4273) = #B3-4297 §=— #8 35-4302 
84-4314 884-4319 886-4390 486-4395 487-4599 887-4403 488-4573 #88-4578 488-4581 #88-4585 
#89-4593  #89-4593 46 #90=4622 891-4643 = #91-464 492-4699 = =#92-4699 = #93-4771 = #93-4771 
#94-4804 #94-480 #95~4864 #95-4864 #96-488 =4888 #97-4922 #97-49 #98-4947 #98-4 
97 4972 #100-4999 #100-4999 #101-5025 #101-5025 102-5058 #102-5058 #103-5092 #103-5092 
#104-5148 =#104-5148 #105-5203 #105-5203 #1065245 4106-5245 4107-5287 #107-5287 #108-5360 #108-5 
#109-5402 4109-5402 4110-5441 4110-5441) 4111-5478 «9111-5478 =9#113-5522 «113-5522 4114-5568 4114-5568 
#115-5588 #115-5588 #116-5641 #116-5641 #117-5682 117-5682 4118-5738 #118-5738 4119-5778 #119-5778 
#120-5820 #120-5820 #121-5857 #122-5902 #123-5909 #124-5911 125-5913 126-5913 #127-5915 #127-5915 
#127-5915 = #129-5915 =#1350-5917 «4131-5919 #132-5921 4133-59246 #135-5926 4136-5928 #137-5930 #138-5932 
#139-5935 #139-5937 #141-6172 4141-6174" 
SWRSU #43-3049 #81-4264 481-4264 
TRACK #41-3010 = #89-4593) -#90=4622 491-4643) 492-4699 = #95 -4864 9 #96-4888 = #97-4922 - #9B-4947 = #99-4972 
#100-4999 #101-5025 #102-5058 #103-5092 #104-5148 #105-5203 106-5245 #107-5287 #108-5360 #109-5402 
#110-5441 111-5478) =#1135-5522 «114-5568 4115-5588 4116-5641 4117-5682 4118-5738 #119-5778 #120-5820 
TRMTRP #132-5921 
TYPBIN #43-3049 
TYPDEC #43-3049 121-5874 122-5902 
TYPNAM #43-3049 
TYPNUM #43-3049 
TYPOCS #43-3049 
TYPOCT #43-3049 127-5415 136-5928 
TYPTXT #32-1009 #43-3049 122-5902 122-5902 
SSCMRE #51-3178 
er or ta78 52-3178 52-3178 52-3178 52-3178 52-3178 52-3178 52-3178 
SSNEWT 32-1271 = #43-3049 = #BB-4593 = 89-4622 = #90-4643_ 91-4699 #92-4771 = #93-4804 = #94-4864 = #95-4888 
#96~-4922 -#97-4947 = #9B-4972 —-#99-4999 —-#100-5025 4101-5058 4102-5092 #103-5148 #104-5203 #105-5245 
106-5287 #107-5360 #108-5402 #109-5441 #110-5478 4112-5522 4113-5568 4114-5588 4115-5641 #116-5682 
#117-5738 = #118-5778 #119-5820 
SSSET #132-5921 =#132-5921 4132-5921 9 #132-5921 = #132-5921 . #132-5921 4132-5921 4132-5921 4132-5921 #132-5921 
#132-5921 #132-5921 #132-5922 
SSSETM #81-4264 #81-4264 
$$SKIP #41-3017 #43-3049 = 92-476 93-4793 95-486 95-4878 iat 97-4938 98-4963 
4988 100-5001 101- ae 102-5079 = 103-5133 103-5140 104-5165 104-5188 104-5193 105-5224 
107-5320 = 107-5349 §=— 109-5425 = 109-5431 = 110-5459 = 110-5467 = 112-5513 =: 114-5578 116-5665 116-5673 
118-5765 119-5804 119-5812 120-5846 
-EQUAT #41-3027 43-304 
EQUIV #41-3004 =#41-3029 = #43-3049 = #433049 = 43-3049 = 43-3049 = # 43-3049 = #43-3049 = #43-3049 = #43- 3049 
9643-3049 =#43-3049 = #433049 = #43-3049 = #43-30469 = #43-3049 = #43-3049 = #43 -3049 = #4 5-3069 = #4 35-3049 
#43-3049 «843-3049 843-3049 43-3049 = #43-3049 
HE ADE #41-3027 #41-3032 
SETUP #41-3027 48-3152 
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CZDRLD CREATED BY MACRO ON 2=NOV-81 AT 16:13 PAGE $3 
SEQUENCE 193 
MACRO CROSS REFERENCE CREF 01 
MACRO EFERENCES 
- SWRLO 3028  #42-3034 
-SACT1 #41-3022 = #48-317 
-SAPTB ot l= e058 #52-3178 #52-3178 
~SAPTH #41-302 49-3176 
TY #41-3028 137-5930 
SCMTA #41-3028 #50-3178 
oP #32-1016 122-5902 
SERRO #32-1679 135-5926 
- SERRT #33-1880 136-5928 
° #41-2983 #138-5932 
- SRDDE #40-2910 30-59% 
- $RDOC #39-2830 131-591 
- SREAD #38-2432 #127-5915 
$SSCOP #32-1334 = #133-5924 
STRAP #41-3027 8 #132-5921 
STYPB #37-2345 
$TYPD #36-2202 125-5913 
STYPE #34-1986 #123-5909 
$TYPO #35-2113 39124-5911 





